1! { dg-do compile }
2! Tests the fix for PR27698, where names not starting with a letter were
3! rejected but not diagnosed with a proper message.
4SUBROUTINE _foo ! { dg-error "Invalid character in name" }
5END
6
7