2018-02-23 Paul Thomas <pault@gcc.gnu.org>

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr83149_b.f90

! Compiled with pr83149_a.f90
! { dg-do run }
! { dg-options "-fno-whole-file" }
! { 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