blob: f67ffd95159f0df17ca3c1b068e68c8b0632ed01 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! 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
|
