gcc/testsuite/gfortran.dg/goacc-gomp/mixed-1.f

! { 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