| ! { dg-do compile } | |
| ! { dg-options "-fcoarray=single -std=f2008" } | |
| ! | |
| ! | |
| ! CO_SUM/CO_MIN/CO_MAX | |
| ! | |
| program test | |
| implicit none | |
| intrinsic co_max ! { dg-error "is not available in the current standard settings but new in Fortran 2018." } | |
| intrinsic co_min ! { dg-error "is not available in the current standard settings but new in Fortran 2018." } | |
| intrinsic co_sum ! { dg-error "is not available in the current standard settings but new in Fortran 2018." } | |
| end program test |