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