gcc/testsuite/gfortran.dg/goacc/fixed-2.f

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-fmax-errors=100" }
   3
   4       INTEGER :: ARGC
   5       ARGC = COMMAND_ARGUMENT_COUNT ()
   6
   7 !$OMP xPARALLEL
   8 !$ACC xPARALLEL COPYIN(ARGC)    ! { dg-error "Unclassifiable OpenACC directive" }
   9       IF (ARGC .NE. 0) THEN
  10          CALL ABORT
  11       END IF
  12 !$ACC END PARALLEL      ! { dg-error "Unexpected" }
  13 !$OMP END PARALLEL
  14
  15       END