gcc/testsuite/gfortran.dg/warn_std_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wnonstd-intrinsics -std=gnu" }
   3 !
   4 ! PR fortran/32778 - pedantic warning: intrinsics that
   5 !                    are GNU extensions not part of -std=gnu
   6 !
   7 ! (1/3) Check for excess errors if -std=gnu.
   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))
  15
  16 ! GNU extension
  17 CALL flush()
  18
  19 ! F95
  20 tmp = ADJUSTL("  gfortran  ")
  21
  22 ! F2003
  23 CALL GET_COMMAND (tmp)
  24
  25 END