summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/invalid_name.f90
blob: 895664f8491062d66aeff9b744067f9880420c64 (plain)
1
2
3
4
5
6
! { dg-do compile }
! Tests the fix for PR27698, where names not starting with a letter were
! rejected but not diagnosed with a proper message.
SUBROUTINE _foo ! { dg-error "Invalid character in name" }
END