[flang][runtime][IO] OPEN statement core dumps at runtime with not-existent file

[mjklemm]

When compiling below reproducer and running it with the opened file not being there, the executable core dumps:

$  flang-new -o readtest ./readtest.f90       
$  ./readtest                                 

fatal Fortran runtime error(/path/path/path/readtest.f90:9): End of file during input
[1]    1099765 IOT instruction (core dumped)  ./readtest

The expected output would be:

 ERROR

Reproducer:

program readtest
    implicit none
    character(len=10) :: dir_app
    real(8) :: rdum, rispin
    integer :: idum

    open(unit=12, file='data1.dat', access='direct', form='unformatted',status='unknown', recl=128)

    read(12,rec=1,err=17421) rdum,rispin ; idum=nint(rdum)

    write (*,*) rdum, rispin
    return

    17421 write(*,*) "ERROR"
end program

[mjklemm]

@klausler I have seen that you've been fixing bugs in the IO code with PR #111454

Would you mind having a look at this?

[klausler]

I need to start using alternative identities.

[llvmbot]

@llvm/issue-subscribers-flang-runtime

Author: Michael Klemm (mjklemm)

When compiling below reproducer and running it with the opened file not being there, the executable core dumps:

$  flang-new -o readtest ./readtest.f90       
$  ./readtest                                 

fatal Fortran runtime error(/path/path/path/readtest.f90:9): End of file during input
[1]    1099765 IOT instruction (core dumped)  ./readtest

The expected output would be:

 ERROR

Reproducer:

program readtest
    implicit none
    character(len=10) :: dir_app
    real(8) :: rdum, rispin
    integer :: idum

    open(unit=12, file='data1.dat', access='direct', form='unformatted',status='unknown', recl=128)

    read(12,rec=1,err=17421) rdum,rispin ; idum=nint(rdum)

    write (*,*) rdum, rispin
    return

    17421 write(*,*) "ERROR"
end program