re PR fortran/32770 ([Meta-bug] -fdefault-integer-8 issues)

2007-11-18  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/32770
	* gfortran.fortran-torture/execute/equiv_5.f:  Set kind on
	integers so tests works with -fdefault-integer-8.
	* gfortran.fortran-torture/execute/elemental.f90:  Use default
	integers so test passes with -fdefault-integer-8.
	* gfortran.fortran-torture/execute/der_io.f90:  Increase
	buffer length so test passes with -fdefault-integer-8.
	* gfortran.dg/bounds_check_8.f90:  Likewise.
	* gfortran.dg/arrayio_derived_1.f90:  LIkewise.
	* gfortran.dg/equiv_7.f90:  Set kind so test passes
	with -fdefault-integer-8.
	* gfortran.dg/g77/20030326-1.f:  Set kind explicitly to
	provoke overflow.

From-SVN: r130279

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d25d6119190c7e99a7aebd036b9330e906d9b721..21d81113450cd279b7993676da719e9956990cb6 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,19 @@
+2007-11-18  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/32770
+       * gfortran.fortran-torture/execute/equiv_5.f:  Set kind on
+       integers so tests works with -fdefault-integer-8.
+       * gfortran.fortran-torture/execute/elemental.f90:  Use default
+       integers so test passes with -fdefault-integer-8.
+       * gfortran.fortran-torture/execute/der_io.f90:  Increase
+       buffer length so test passes with -fdefault-integer-8.
+       * gfortran.dg/bounds_check_8.f90:  Likewise.
+       * gfortran.dg/arrayio_derived_1.f90:  LIkewise.
+       * gfortran.dg/equiv_7.f90:  Set kind so test passes
+       with -fdefault-integer-8.
+       * gfortran.dg/g77/20030326-1.f:  Set kind explicitly to
+       provoke overflow.
+
 2007-11-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR fortran/33317

diff --git a/gcc/testsuite/gfortran.dg/arrayio_derived_1.f90 b/gcc/testsuite/gfortran.dg/arrayio_derived_1.f90
index d0d3aa256a0e9dc809b7036bf3b0f19c2410fd19..dd12561b7634880999aca753c27ad9c5cd03aa24 100644 (file)
--- a/gcc/testsuite/gfortran.dg/arrayio_derived_1.f90
+++ b/gcc/testsuite/gfortran.dg/arrayio_derived_1.f90
@@ -7,7 +7,7 @@ program arrayio_derived_1
      character(len=1) :: c
   end type tp
   type(tp) :: x(5)
-  character(len=100) :: a
+  character(len=500) :: a
   integer :: i, b(5)
 
   x%i = 256

diff --git a/gcc/testsuite/gfortran.dg/bounds_check_8.f90 b/gcc/testsuite/gfortran.dg/bounds_check_8.f90
index c9d8855d39df6019a593889b12cf374c5500022d..11be29bdab433d725b4dbc8ecd18c377630a9776 100644 (file)
--- a/gcc/testsuite/gfortran.dg/bounds_check_8.f90
+++ b/gcc/testsuite/gfortran.dg/bounds_check_8.f90
@@ -12,7 +12,7 @@ program test
      integer :: x
   end type xyz_type
   type (xyz_type), dimension(3) :: xyz
-  character(len=20) :: s
+  character(len=80) :: s
 
   xyz(1)%x = 11111
   xyz(2)%x = 0

diff --git a/gcc/testsuite/gfortran.dg/equiv_7.f90 b/gcc/testsuite/gfortran.dg/equiv_7.f90
index 925f40ac1b448c8218d634e9138c8b3798ed555c..23f707b39c4ea87c5193ada950aff0279abdfce9 100644 (file)
--- a/gcc/testsuite/gfortran.dg/equiv_7.f90
+++ b/gcc/testsuite/gfortran.dg/equiv_7.f90
@@ -72,7 +72,8 @@ contains
   function d1mach_little(i) result(d1mach)
     implicit none
     double precision d1mach,dmach(5)
-    integer i,large(4),small(4)
+    integer i
+    integer*4 large(4),small(4)
     equivalence ( dmach(1), small(1) )
     equivalence ( dmach(2), large(1) )
     data small(1),small(2) / 0,   1048576/
@@ -82,7 +83,8 @@ contains
   function d1mach_big(i) result(d1mach)
     implicit none
     double precision d1mach,dmach(5)
-    integer i,large(4),small(4)
+    integer i
+    integer*4 large(4),small(4)
     equivalence ( dmach(1), small(1) )
     equivalence ( dmach(2), large(1) )
     data small(1),small(2) /1048576,    0/

diff --git a/gcc/testsuite/gfortran.dg/g77/20030326-1.f b/gcc/testsuite/gfortran.dg/g77/20030326-1.f
index 4741fd7888c14aa72a614a191f36d4625452673b..6efc5d9a667d07415c1b88eafa8cd173c42b6075 100644 (file)
--- a/gcc/testsuite/gfortran.dg/g77/20030326-1.f
+++ b/gcc/testsuite/gfortran.dg/g77/20030326-1.f
@@ -6,5 +6,5 @@
 ! For gfortran, see PR 13490
 !
        integer c
-       c = -2147483648 / (-1) ! { dg-error "too big for its kind" "" }
+       c = -2147483648_4 / (-1) ! { dg-error "too big for its kind" "" }
        end

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/der_io.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/der_io.f90
index 0e9b0716654ac2a3bf87cdeebb0b706b064ec1b1..b1b421bc6785109bc40487b459e9dac8bc4a7cc9 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/der_io.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/der_io.f90
@@ -1,6 +1,6 @@
 ! Program to test IO of derived types
 program derived_io
-  character(100) :: buf1, buf2, buf3
+  character(400) :: buf1, buf2, buf3
 
   type xyz_type
      integer :: x

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/elemental.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/elemental.f90
index fcfe233df9c5fcc85e9752ae0ca6cc845e28860c..79a511cdee820989776d13bf19c59a456bb1d2ce 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/elemental.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/elemental.f90
@@ -1,8 +1,8 @@
 ! Program to test elemental functions.
 program test_elemental
    implicit none
-   integer(kind = 4), dimension (2, 4) :: a
-   integer(kind = 4), dimension (2, 4) :: b
+   integer, dimension (2, 4) :: a
+   integer, dimension (2, 4) :: b
    integer(kind = 8), dimension(2) :: c
 
    a = reshape ((/2, 3, 4, 5, 6, 7, 8, 9/), (/2, 4/))
@@ -25,7 +25,7 @@ program test_elemental
    if (any (a .ne. 0)) call abort
 contains
 
-elemental integer function e_fn (p, q)
+elemental integer(kind=4) function e_fn (p, q)
    integer, intent(in) :: p, q
    e_fn = p - q
 end function

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_5.f b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_5.f
index b20797ee3f78b6073f03a8b9568a5a6550febd57..61f374c5564a38e518e3838e4d41310ea8c96532 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/equiv_5.f
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/equiv_5.f
@@ -5,7 +5,7 @@ C  of type punning is ok.
 C  The testcase is from blas, http://www.netlib.org/blas/d1mach.f
 
       DOUBLE PRECISION FUNCTION D1MACH(I)
-      INTEGER I
+      INTEGER*4 I
 C
 C  DOUBLE-PRECISION MACHINE CONSTANTS
 C  D1MACH( 1) = B**(EMIN-1), THE SMALLEST POSITIVE MAGNITUDE.
@@ -14,12 +14,12 @@ C  D1MACH( 3) = B**(-T), THE SMALLEST RELATIVE SPACING.
 C  D1MACH( 4) = B**(1-T), THE LARGEST RELATIVE SPACING.
 C  D1MACH( 5) = LOG10(B)
 C
-      INTEGER SMALL(2)
-      INTEGER LARGE(2)
-      INTEGER RIGHT(2)
-      INTEGER DIVER(2)
-      INTEGER LOG10(2)
-      INTEGER SC, CRAY1(38), J
+      INTEGER*4 SMALL(2)
+      INTEGER*4 LARGE(2)
+      INTEGER*4 RIGHT(2)
+      INTEGER*4 DIVER(2)
+      INTEGER*4 LOG10(2)
+      INTEGER*4 SC, CRAY1(38), J
       COMMON /D9MACH/ CRAY1
       SAVE SMALL, LARGE, RIGHT, DIVER, LOG10, SC
       DOUBLE PRECISION DMACH(5)
@@ -49,7 +49,7 @@ C      DATA DIVER(1),DIVER(2) / O606400000000, O000000000000 /
 C      DATA LOG10(1),LOG10(2) / O776464202324, O117571775714 /, SC/987/
 C
 C     MACHINE CONSTANTS FOR PDP-11 FORTRANS SUPPORTING
-C     32-BIT INTEGERS.
+C     32-BIT INTEGER*4S.
 C      DATA SMALL(1),SMALL(2) /    8388608,           0 /
 C      DATA LARGE(1),LARGE(2) / 2147483647,          -1 /
 C      DATA RIGHT(1),RIGHT(2) /  612368384,           0 /
@@ -209,7 +209,7 @@ C     ON FIRST CALL, IF NO DATA UNCOMMENTED, TEST MACHINE TYPES.
       END
       SUBROUTINE I1MCRY(A, A1, B, C, D)
 **** SPECIAL COMPUTATION FOR OLD CRAY MACHINES ****
-      INTEGER A, A1, B, C, D
+      INTEGER*4 A, A1, B, C, D
       A1 = 16777216*B + C
       A = 16777216*A1 + D
       END