Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/newunit_1.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 } ! PR40008 F2008: Add NEWUNIT= for OPEN statement ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org> program newunit_1 character(len=25) :: str integer(1) :: myunit, myunit2 myunit = 25 str = "bad" open(newunit=myunit, status="scratch") open(newunit = myunit2, file="newunit_1file") write(myunit,'(e24.15e2)') 1.0d0 write(myunit2,*) "abcdefghijklmnop" flush(myunit) rewind(myunit) rewind(myunit2) read(myunit2,'(a)') str if (str.ne." abcdefghijklmnop") call abort close(myunit) close(myunit2, status="delete") end program newunit_1