Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/open_new.f90 @ 127:4c56639505ff
fix function.c and add CbC-example Makefile
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 18:46:58 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! PR 18982: verifies that opening an existing file with ! status="new" is an error program main nout = 10 open(nout, file="foo_open_new.dat", status="replace") ! make sure foo_open_new.dat exists close(nout) open(nout, file="foo_open_new.dat", status="new",err=100) call abort ! This should never happen 100 call unlink ("foo_open_new.dat") end program main