mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
10 lines
260 B
Fortran
10 lines
260 B
Fortran
! { dg-do compile }
|
|
! PR fortran/35582 - ICE on invalid format
|
|
! Testcase contributed by
|
|
! Leandro Martinez <leandromartinez DOT spam AT gmail DOT com>
|
|
|
|
real, parameter :: a = 1.
|
|
write(*,a) 'test' ! { dg-error "expression in FORMAT tag" }
|
|
end
|
|
|