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
9subroutine a
10#undef S2
11#define S2 1
12integer :: i
13end subroutine a
14# 4 "include_2.F90" 2
15#undef B
16#define B b
17# 1 "include_2.inc" 1
18subroutine b
19#undef S2
20#define S2 1
21integer :: i
22end 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
29end
30