2 !TODO: Move these testcases to gfortran testsuite
3 ! once compilation with pthreads is supported there
4 ! PR40008 F2008: Add NEWUNIT= for OPEN statement
5 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
7 character(len
=25) :: str
8 integer(1) :: myunit
, myunit2
11 open(newunit
=myunit
, status
="scratch")
12 open(newunit
= myunit2
, file
="newunit_1file")
13 write(myunit
,'(e24.15e2)') 1.0d0
14 write(myunit2
,*) "abcdefghijklmnop"
18 read(myunit2
,'(a)') str
19 if (str
.ne
." abcdefghijklmnop") stop 1
21 close(myunit2
, status
="delete")