blob: 4d7d73826f700eaff03b4864963b4f132205228b (
plain)
1
2
3
4
5
6
7
|
! { 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
|