1! { dg-do compile }
2! { dg-options "-Wall" }
3
4! This will verify that the # <line> <file> directive later does not
5! mess up the diagnostic on this line
6SUBROUTINE s(dummy) ! { dg-warning "Unused" }
7  INTEGER, INTENT(in) :: dummy
8END SUBROUTINE
9
10# 12345 "foo-f"
11SUBROUTINE s2(dummy)
12  INTEGER, INTENT(in) :: dummy
13END SUBROUTINE
14! We want to check that the # directive changes the filename in the
15! diagnostic.  Nothing else really matters here.  dg-regexp allows us
16! to see the entire diagnostic.  We just have to make sure to consume
17! the entire message.
18! { dg-regexp "foo-f\[^\n]*" }
19