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