gcc/testsuite/gfortran.dg/include_2.f90

   1 # 1 "include_2.F90"
   2 # 1 "/tmp/"
   3 # 1 "<built-in>"
   4 # 1 "<command line>"
   5 # 1 "include_2.F90"
   6 #define S1 1
   7 #define B a
   8 # 1 "include_2.inc" 1
   9 subroutine a
  10 #undef S2
  11 #define S2 1
  12 integer :: i
  13 end subroutine a
  14 # 4 "include_2.F90" 2
  15 #undef B
  16 #define B b
  17 # 1 "include_2.inc" 1
  18 subroutine b
  19 #undef S2
  20 #define S2 1
  21 integer :: i
  22 end subroutine b
  23 # 6 "include_2.F90" 2
  24 ! PR debug/33739
  25 ! { dg-do link }
  26 ! { dg-options "-fpreprocessed -g3" }
  27     call a
  28     call b
  29 end