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