re PR fortran/37399 (gfortran.dg/size_kind.f90 doesn't work)

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.

From-SVN: r140070

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3185f30..0ae92eb 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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.

diff --git a/gcc/testsuite/gfortran.dg/size_kind.f90 b/gcc/testsuite/gfortran.dg/size_kind.f90
index 5ec6f7e..ee9cb8f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/size_kind.f90
+++ b/gcc/testsuite/gfortran.dg/size_kind.f90
@@ -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