gcc/testsuite/gfortran.dg/warn_std_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003 -Wintrinsics-std" }
   3 !
   4 ! PR fortran/32778 - pedantic warning: intrinsics that
   5 !                    are GNU extensions not part of -std=gnu
   6 !
   7 ! (3/3) Check for GNU extensions if -std=f2003.
   8 !
   9
  10 CHARACTER(len=255) :: tmp
  11 REAL(8) :: x
  12
  13 ! GNU extension, check overload of F77 standard intrinsic
  14 x = ZABS(CMPLX(0.0, 1.0, 8))    ! { dg-warning "extension" }
  15
  16 ! GNU extension
  17 CALL flush()                    ! { dg-warning "extension" }
  18
  19 ! F95
  20 tmp = ADJUSTL("  gfortran  ")
  21
  22 ! F2003
  23 CALL GET_COMMAND (tmp)
  24
  25 END