OSDN Git Service

2006-10-28 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / io_real_boz2.f90
1 ! { dg-do run }
2 ! { dg-shouldfail "Real BOZ not allowed" }
3 ! { dg-options "-fall-intrinsics -std=f2003" }
4 ! Test for invalid (F95/F2003) writing of real with octal edit descriptor
5 ! PR fortran/29625
6 program real_boz
7   implicit none
8   real(4)           :: r
9   character(len=100) :: str
10
11   r = 325.56
12   write(str,'(o0)') r
13 end program real_boz
14 ! { dg-output "At line 12 .*" }
15 ! { dg-output "Expected INTEGER .* in formatted transfer, got REAL" }