| ! { dg-additional-options "-fdump-tree-original" } |
| |
| ! OMP PARALLEL gets parsed and is properly handled |
| ! But ACC& gives an error |
| ! [Before: an error is printed but OMP parses 'parallel loop ...'] |
| subroutine one |
| implicit none |
| integer i |
| !$omp parallel |
| !$acc& loop independent ! { dg-error "Wrong OpenMP continuation at .1.: expected !.OMP, got !.ACC" } |
| do i = 1, 5 |
| end do |
| !$omp end parallel |
| end |
| |
| ! [Before: Bogus 'Wrong OpenMP continuation' as it was read as continuation line!] |
| subroutine two |
| !$omp parallel |
| !$acc loop independent ! { dg-error "The !.ACC LOOP directive cannot be specified within a !.OMP PARALLEL region" } |
| do i = 1, 5 |
| end do |
| !$omp end parallel |
| end |