Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/coarray_2.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
line wrap: on
line source
! { 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" }