blob: 4d7d73826f700eaff03b4864963b4f132205228b [file] [log] [blame]
! { dg-do compile }
! PR69110 ICE with NEWUNIT
subroutine open_file_safe(fname, fstatus, faction, fposition, funit)
character(*), intent(in) :: fname, fstatus, faction, fposition
integer, intent(out) :: funit
open(newunit=funit, status=fstatus)
end subroutine open_file_safe