Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/complex_read.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run { target fd_truncate } } ! Test of the fix to the bug in NIST fm906.for. ! Contributed by Paul Thomas <pault@gcc.gnu.org> ! program complex_read complex :: a open (10, status="scratch") ! Test that we have not broken the one line form. write (10, *) " ( 0.99 , 9.9 )" rewind (10) read (10,*) a if (a.ne.(0.99, 9.90)) call abort () ! Test a new record after the.comma (the original bug). rewind (10) write (10, *) " ( 99.0 ," write (10, *) " 999.0 )" rewind (10) read (10,*) a if (a.ne.(99.0, 999.0)) call abort () ! Test a new record before the.comma rewind (10) write (10, *) " ( 0.99 " write (10, *) " , 9.9 )" rewind (10) read (10,*) a if (a.ne.(0.99, 9.90)) call abort () ! Test a new records before and after the.comma rewind (10) write (10, *) " ( 99.0 " write (10, *) ", " write (10, *) " 999.0 )" rewind (10) read (10,*) a if (a.ne.(99.0, 999.0)) call abort () ! Test a new records and blank records before and after the.comma rewind (10) write (10, *) " ( 0.99 " write (10, *) " " write (10, *) ", " write (10, *) " " write (10, *) " 9.9 )" rewind (10) read (10,*) a if (a.ne.(0.99, 9.9)) call abort () close (10) end program complex_read