1c { dg-do compile } 2 subroutine foo 3 implicit none 4 include 'include_10.inc' 5 i = 1 6 end subroutine foo 7 subroutine bar 8 implicit none 9 i n cl UD e'include_10.inc' 10 i = 1 11 end subroutine bar 12