2015-08-28 17:33:40 +02:00
|
|
|
program main
|
|
|
|
implicit none
|
|
|
|
|
2017-04-10 13:32:00 +02:00
|
|
|
print *, "CheCKpOInT"
|
2015-08-28 17:33:40 +02:00
|
|
|
!$acc parallel
|
|
|
|
call abort
|
|
|
|
!$acc end parallel
|
|
|
|
|
|
|
|
end program main
|
2017-04-10 13:32:00 +02:00
|
|
|
|
|
|
|
! { dg-output "CheCKpOInT" }
|
|
|
|
! { dg-shouldfail "" }
|