1! { dg-do run } 2! PR83525 Combination of newunit and internal unit was failing. 3program main 4 integer :: funit 5 logical :: isopen 6 integer :: this, another 7 character(len=:), allocatable :: message 8 9 message = "12" 10 read(message, *) this 11 if (this.ne.12) STOP 1 12 13 open(newunit=funit, status="scratch") 14 write(funit, *) "13" 15 rewind(funit) 16 read(funit, *) another 17 !write(*,*) another 18 close(funit) 19 if (another.ne.13) STOP 2 20end 21