| subroutine one | |
| implicit none (external, type) | |
| integer :: i, j | |
| i = 5 | |
| j = 6 | |
| !$omp parallel | |
| my_block : block | |
| !$omp atomic write | |
| i = 7 | |
| exit my_block | |
| !$omp atomic write | |
| j = 99 ! Should be unreachable | |
| ! exit should jump here - end of block but inside of it. | |
| end block my_block | |
| if (i /= 7) stop 1 | |
| if (j /= 6) stop 2 | |
| end | |
| call one | |
| end |