gcc/testsuite/gfortran.dg/pr83149_b.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! Compiled with pr83149_a.f90
! { dg-do run }
! { dg-compile-aux-modules "pr83149_a.f90" }
! { dg-additional-sources pr83149_a.f90 }
!
! Contributed by Neil Carlson  <neil.n.carlson@gmail.com>
!
  use mod
  string = 'fubar'
  select case (get_string())
    case ('fubar')
    case default
      stop 1
  end select
end