16 lines
444 B
Fortran
16 lines
444 B
Fortran
! { dg-do run }
|
|
! { dg-shouldfail "Real BOZ not allowed" }
|
|
! { dg-options "-fall-intrinsics -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" }
|