diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/warn_std_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/warn_std_2.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/warn_std_2.f90 b/gcc/testsuite/gfortran.dg/warn_std_2.f90 index 0a8c509d5c6..325fc8cb6e1 100644 --- a/gcc/testsuite/gfortran.dg/warn_std_2.f90 +++ b/gcc/testsuite/gfortran.dg/warn_std_2.f90 @@ -1,5 +1,5 @@ ! { dg-do compile } -! { dg-options "-Wnonstd-intrinsics -std=f95" } +! { dg-options "-std=f95 -Wintrinsics-std" } ! ! PR fortran/32778 - pedantic warning: intrinsics that ! are GNU extensions not part of -std=gnu @@ -11,15 +11,15 @@ CHARACTER(len=255) :: tmp REAL(8) :: x ! GNU extension, check overload of F77 standard intrinsic -x = ZABS(CMPLX(0.0, 1.0, 8)) ! { dg-error "is not included in the selected standard" } +x = ZABS(CMPLX(0.0, 1.0, 8)) ! { dg-warning "extension" } ! GNU extension -CALL flush() ! { dg-error "is not included in the selected standard" } +CALL flush() ! { dg-warning "extension" } ! F95 tmp = ADJUSTL(" gfortran ") ! F2003 -CALL GET_COMMAND (tmp) ! { dg-error "is not included in the selected standard" } +CALL GET_COMMAND (tmp) ! { dg-warning "Fortran 2003" } END |
