OSDN Git Service

2008-09-06 Tobias Burnus <burnus@net-b.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 6 Sep 2008 18:27:17 +0000 (18:27 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 6 Sep 2008 18:27:17 +0000 (18:27 +0000)
       PR fortran/37399
       * gfortran.dg/size_kind.f90: Remove allocate statement
       as it overflows at compile time on 32bit systems.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@140070 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/size_kind.f90

index 3185f30..0ae92eb 100644 (file)
@@ -1,3 +1,9 @@
+2008-09-06  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/37399
+       * gfortran.dg/size_kind.f90: Remove allocate statement
+       as it overflows at compile time on 32bit systems.
+
 2008-09-06  Jan Hubicka  <jh@suse.cz>
 
        * g++.dg/tree-ssa-pr14703.C: New testcase.
index 5ec6f7e..ee9cb8f 100644 (file)
@@ -19,7 +19,9 @@ program test_64
    print *, "max_32 = ", max_32
    print *, "big_sz = ", big_sz
 
-   allocate(array(big_sz))
+! Disabled as it overflows on 32bit systems (at compile time)
+! (conversion of integer(8) to integer(4))
+!   allocate(array(big_sz))
    print *, "sz = ", size(array)
    print *, "sz = ", size(array, kind=long)
 end program