blob: 8821b9f0505ec0f553e9f720260164c2c3965434 [file] [log] [blame]
! { dg-do run }
! PR83525 Combination of newunit and internal unit was failing.
program main
integer :: funit
logical :: isopen
integer :: this, another
character(len=:), allocatable :: message
message = "12"
read(message, *) this
if (this.ne.12) STOP 1
open(newunit=funit, status="scratch")
write(funit, *) "13"
rewind(funit)
read(funit, *) another
!write(*,*) another
close(funit)
if (another.ne.13) STOP 2
end