Increase timeout factor for hppa*-*-* in gcc.dg/long_branch.c
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr83149_b.f90
blob9013617fa718dc40094e7fbe7638c5feb52435df
1 ! Compiled with pr83149_a.f90
2 ! { dg-do run }
3 ! { dg-compile-aux-modules "pr83149_a.f90" }
4 ! { dg-additional-sources pr83149_a.f90 }
6 ! Contributed by Neil Carlson <neil.n.carlson@gmail.com>
8 use mod
9 string = 'fubar'
10 select case (get_string())
11 case ('fubar')
12 case default
13 stop 1
14 end select
15 end