gcc/testsuite/gfortran.dg/include_21.f90

   1 # 1 "../../../trunk/libgfortran/generated/_abs_c4.F90"
   2 # 1 "C:\\msys\\1.0.10\\home\\FX\\ibin\\i586-pc-mingw32\\libgfortran//"
   3 # 1 "<built-in>"
   4 # 1 "<command-line>"
   5 # 1 "../../../trunk/libgfortran/generated/_abs_c4.F90"
   6 !   Comment here
   7
   8 # 1 "./config.h" 1
   9
  10 # 37 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2
  11
  12 # 1 "./kinds.inc" 1
  13 # 38 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2
  14
  15 # 1 "./c99_protos.inc" 1
  16 # 39 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2
  17
  18 elemental function abs_c4 (parm)
  19    complex (kind=4), intent (in) :: parm
  20    real (kind=4) :: abs_c4
  21
  22    abs_c4 = abs (parm)
  23 end function
  24
  25 ! { dg-do compile }
  26 ! { dg-options "-fpreprocessed -g3 -Wno-missing-include-dirs" }