Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/negative_unit_int8.f @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! { dg-options "-fdefault-integer-8" } ! ! NOTE: This test is identical to negative_unit.f except -fdefault-integer-8 ! ! 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 integer, parameter ::ERROR_BAD_UNIT = 5005 logical l i = -1 ! gfortran created a 'fort.-1' file and wrote "Hello" in it write (unit=i, fmt=*, iostat=i) "Hello" if (i <= 0) call abort i = -11 open (unit=i, file="xxx", iostat=i) if (i <= 0) call abort i = -42 inquire (unit=i, exist=l) if (l) call abort i = 2_8*huge(0_4)+20_8 ! This one is nasty inquire (unit=i, exist=l, iostat=i) if (l) call abort if (i.ne.0) call abort end