mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-11 19:49:32 +00:00
11 lines
148 B
Fortran
11 lines
148 B
Fortran
|
! { dg-shouldfail "" { *-*-* } { "*" } { "" } }
|
||
|
|
|
||
|
|
program main
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
!$acc parallel
|
||
|
|
call abort
|
||
|
|
!$acc end parallel
|
||
|
|
|
||
|
|
end program main
|