1! { dg-do compile }
2! { dg-options }
3! PR37988 Edit descriptor checking (compile time) for "<Holerith>T)"
4! Test case derived from the reporter.
5 8001 FORMAT(//,' SIGNIFICANCE LEVEL =',F7.4, 21H ONE-SIDED AT THE LEFT) ! { dg-error "required with T descriptor" }
6 end
7