mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-04 13:06:01 +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
|