| ! Test Case 16 Labels Used in a Subroutine | |
| ! Test fails because a subroutine is an action statement | |
| program use_label_in_subroutine !<<<<< 1, 1, 15, 4, true, fail-final | |
| implicit none | |
| integer label | |
| assign 20 to label | |
| goto label | |
| 20 call print_label(label) | |
| end program use_label_in_subroutine | |
| subroutine print_label( label1 ) | |
| integer :: label1 | |
| print *,label1 | |
| end |