URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [io_real_boz_5.f90] - Rev 694
Compare with Previous | Blame | View Log
! { dg-do run }! { dg-options "-std=f2008" }! { dg-require-effective-target fortran_real_16 }!! PR fortran/51407!! Invalid in F2008 (accepted with -std=gnu)! { dg-output "Expected numeric type for item 1 in formatted transfer, got CHARACTER" }! { dg-shouldfail "Character type in BOZ" }!character(len=32) :: str1x = 1.0_16 + 2.0_16**(-105)write (str1,'(z0)') 'X'end