Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/negative_unit.f @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! ! PR libfortran/20660 and other bugs (not filed in bugzilla) relating ! to negative units ! PR 33055 Runtime error in INQUIRE unit existance with -fdefault-integer-8 ! Test case update by Jerry DeLisle <jvdelisle@gcc.gnu.org> ! ! Bugs submitted by Walt Brainerd integer i,j logical l i = -1 ! gfortran created a 'fort.-1' file and wrote "Hello" in it write (unit=i, fmt=*, iostat=j) "Hello" if (j <= 0) STOP 1 i = -11 open (unit=i, file="xxx", iostat=j) if (j <= 0) STOP 2 i = -42 inquire (unit=i, exist=l) if (l) STOP 3 end