blob: 8e1366b0802a57b1740ab2b490fa14f64eeae8f5 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-Wall" }
! This will verify that the # <line> <file> directive later does not
! mess up the diagnostic on this line
SUBROUTINE s(dummy) ! { dg-warning "Unused" }
INTEGER, INTENT(in) :: dummy
END SUBROUTINE
# 12345 "foo-f"
SUBROUTINE s2(dummy)
INTEGER, INTENT(in) :: dummy
END SUBROUTINE
! We want to check that the # directive changes the filename in the
! diagnostic. Nothing else really matters here. dg-regexp allows us
! to see the entire diagnostic. We just have to make sure to consume
! the entire message.
! { dg-regexp "foo-f\[^\n]*" }