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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { dg-do compile } 
! { dg-additional-options "-fmax-errors=100" } 

      INTEGER :: ARGC
      ARGC = COMMAND_ARGUMENT_COUNT ()

!$OMP xPARALLEL
!$ACC xPARALLEL COPYIN(ARGC)	! { dg-error "Unclassifiable OpenACC directive" }
      IF (ARGC .NE. 0) THEN
         STOP 1
      END IF
!$ACC END PARALLEL 	! { dg-error "Unexpected" }
!$OMP END PARALLEL

      END