OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [open_new.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! PR 18982:  verifies that opening an existing file with
3
!            status="new" is an error
4
program main
5
  nout = 10
6
  open(nout, file="foo.dat", status="replace")     ! make sure foo.dat exists
7
  close(nout)
8
  open(nout, file="foo.dat", status="new",err=100)
9
  call abort                 ! This should never happen
10
100 call unlink ("foo.dat")
11
end program main

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.