Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/open_status_2.f90 @ 144:8f4e72ab4e11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix segmentation fault caused by nothing next cur_op to end
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sun, 23 Dec 2018 21:23:56 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do run } 
! PR 24945
! Test reopening file without status specifier or with
! status='unknown'. The standard says that these two must behave
! identically, but the actual behavior is processor dependent.
program open_status_2
  open(10, file="f", form='unformatted', status='unknown')
  open(10, file="f", form='unformatted', status='unknown')
  open(10, file="f", form='unformatted')
  close(10, status='delete')
end program open_status_2