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 }
5!
6! Contributed by Neil Carlson  <neil.n.carlson@gmail.com>
7!
8  use mod
9  string = 'fubar'
10  select case (get_string())
11    case ('fubar')
12    case default
13      stop 1
14  end select
15end
16