48 lines
825 B
Fortran
48 lines
825 B
Fortran
! { dg-do run }
|
|
! { dg-options "-fcoarray=single" }
|
|
! { dg-shouldfail "error stop" }
|
|
!
|
|
! Coarray support
|
|
! PR fortran/18918
|
|
|
|
implicit none
|
|
integer :: n
|
|
character(len=30) :: str
|
|
critical
|
|
end critical
|
|
myCr: critical
|
|
end critical myCr
|
|
sync all
|
|
sync all ( )
|
|
n = 5
|
|
sync all (stat=n)
|
|
if (n /= 0) call abort()
|
|
n = 5
|
|
sync all (stat=n,errmsg=str)
|
|
if (n /= 0) call abort()
|
|
sync all (errmsg=str)
|
|
|
|
sync memory
|
|
sync memory ( )
|
|
n = 5
|
|
sync memory (stat=n)
|
|
if (n /= 0) call abort()
|
|
n = 5
|
|
sync memory (errmsg=str,stat=n)
|
|
if (n /= 0) call abort()
|
|
sync memory (errmsg=str)
|
|
|
|
sync images (*, stat=n)
|
|
sync images (1, errmsg=str)
|
|
sync images ([1],errmsg=str,stat=n)
|
|
|
|
sync images (*)
|
|
sync images (1)
|
|
sync images ([1])
|
|
|
|
if (num_images() /= 1) call abort()
|
|
error stop 'stop'
|
|
end
|
|
|
|
! { dg-output "ERROR STOP stop" }
|