| ! 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 |