libgomp/testsuite/libgomp.oacc-fortran/abort-1.f90 - gcc - Git at Google

 ! { dg-shouldfail "" { *-*-* } { "*" } { "" } }

 program main
   implicit none

   !$acc parallel
   call abort
   !$acc end parallel

 end program main
	! { dg-shouldfail "" { --* } { "*" } { "" } }

	program main
	implicit none

	!$acc parallel
	call abort
	!$acc end parallel

	end program main