| # 1 "../../../trunk/libgfortran/generated/_abs_c4.F90" |
| # 1 "C:\\msys\\1.0.10\\home\\FX\\ibin\\i586-pc-mingw32\\libgfortran//" |
| # 1 "<built-in>" |
| # 1 "<command-line>" |
| # 1 "../../../trunk/libgfortran/generated/_abs_c4.F90" |
| ! Comment here |
| |
| # 1 "./config.h" 1 |
| |
| # 37 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2 |
| |
| # 1 "./kinds.inc" 1 |
| # 38 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2 |
| |
| # 1 "./c99_protos.inc" 1 |
| # 39 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2 |
| |
| elemental function abs_c4 (parm) |
| complex (kind=4), intent (in) :: parm |
| real (kind=4) :: abs_c4 |
| |
| abs_c4 = abs (parm) |
| end function |
| |
| ! { dg-do compile } |
| ! { dg-options "-fpreprocessed -g3" } |
| ! { dg-warning "Nonexistent include directory" "missing directory" { target *-*-* } 0 } |
