! { dg-do run } | |
! { dg-shouldfail "Real BOZ not allowed" } | |
! { dg-options "-std=f2003" } | |
! Test for invalid (F95/F2003) writing of real with octal edit descriptor | |
! PR fortran/29625 | |
program real_boz | |
implicit none | |
real(4) :: r | |
character(len=100) :: str | |
r = 325.56 | |
write(str,'(o0)') r | |
end program real_boz | |
! { dg-output "At line 12 .*" } | |
! { dg-output "Expected INTEGER .* in formatted transfer, got REAL" } |