mirror of
https://github.com/autc04/Retro68.git
synced 2025-03-01 19:30:46 +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
|