| ! Test Case 20 Label Used in Common Block | |
| ! Test passes because a common block is not an action statement | |
| program use_label_in_common_block !<<<<< 1, 1, 11, 38, true, pass | |
| implicit none | |
| common /test/ label | |
| integer label | |
| label = 20 | |
| select case (label) | |
| case (20); goto 20 | |
| case default; stop "Unknown label" | |
| end select | |
| 20 continue | |
| end program use_label_in_common_block |