| 1 |
! CHECK: three |
| 2 |
program test_select |
| 3 |
implicit none |
| 4 |
integer :: x |
| 5 |
x = 3 |
| 6 |
select case (x) |
| 7 |
case (1) |
| 8 |
print *, 'one' |
| 9 |
case (2) |
| 10 |
print *, 'two' |
| 11 |
case (3) |
| 12 |
print *, 'three' |
| 13 |
case default |
| 14 |
print *, 'other' |
| 15 |
end select |
| 16 |
end program |
| 17 |
|