From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sun, 4 May 2008 20:56:30 +0000 (+0000)
Subject: re PR fortran/32770 ([Meta-bug] -fdefault-integer-8 issues)
X-Git-Tag: releases/gcc-4.4.0~5144
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=5956508768610024628fddf69bd31b63535dc39e;p=thirdparty%2Fgcc.git

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

2008-05-04  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/32770
	* gfortran.dg/any_all_1.f90:  Adjust kinds to make test
	pass with -fdefault-integer-8.
	* gfortran.dg/maxloc_bounds_4.f90:  Likewise.
	* gfortran.dg/maxloc_bounds_5.f90:  Likewise.
	* gfortran.dg/maxloc_bounds_7.f90:  Likewise.

From-SVN: r134936
---

diff --git a/gcc/testsuite/gfortran.dg/any_all_1.f90 b/gcc/testsuite/gfortran.dg/any_all_1.f90
index f1a14474034b..f00c477b74a3 100644
--- a/gcc/testsuite/gfortran.dg/any_all_1.f90
+++ b/gcc/testsuite/gfortran.dg/any_all_1.f90
@@ -4,7 +4,7 @@
 program main
   real, dimension(2,2) :: a
   logical(kind=4), dimension(2) :: b
-  integer, dimension(2) :: i
+  integer(kind=4), dimension(2) :: i
   equivalence (b,i)
   data a /1.0, 2.0, -0.1, -0.2 /
 
diff --git a/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90 b/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90
index 22e5bf0af7aa..5a38813a72e9 100644
--- a/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90
+++ b/gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90
@@ -15,7 +15,7 @@ end module tst
 program main
   use tst
   implicit none
-  integer(kind=4) :: res(3)
+  integer :: res(3)
   call foo(res)
 end program main
 ! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" }
diff --git a/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90 b/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90
index cbc029211535..42e19e5a1e09 100644
--- a/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90
+++ b/gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90
@@ -15,7 +15,7 @@ end module tst
 program main
   use tst
   implicit none
-  integer(kind=4) :: res(3)
+  integer :: res(3)
   call foo(res)
 end program main
 ! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" }
diff --git a/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90 b/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90
index 491a044ea070..2194eee35a40 100644
--- a/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90
+++ b/gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90
@@ -15,7 +15,7 @@ end module tst
 program main
   use tst
   implicit none
-  integer(kind=4) :: res(3)
+  integer :: res(3)
   call foo(res)
 end program main
 ! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" }