Update concepts branch to revision 131834
[official-gcc.git] / gcc / testsuite / gfortran.dg / include_2.f90
blobe4f553efa3e4b3ecf70c72e7375105d661febd67
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