2 ! { dg-options "-std=f2003" }
3 ! { dg-require-effective-target fortran_real_16 }
7 ! Valid in F2008, but in F95/F2003:
8 ! { dg-output "Expected INTEGER for item 1 in formatted transfer, got REAL" }
9 ! { dg-shouldfail "Only F2003: BOZ edit with REAL" }
12 character(len
=32) :: str1
13 x
= 1.0_16
+ 2.0_16
**(-105)
14 write (str1
,'(z32)') x