mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
16 lines
319 B
Fortran
16 lines
319 B
Fortran
! 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
|