From 5956508768610024628fddf69bd31b63535dc39e Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sun, 4 May 2008 20:56:30 +0000 Subject: [PATCH] re PR fortran/32770 ([Meta-bug] -fdefault-integer-8 issues) 2008-05-04 Thomas Koenig 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 --- gcc/testsuite/gfortran.dg/any_all_1.f90 | 2 +- gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90 | 2 +- gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90 | 2 +- gcc/testsuite/gfortran.dg/maxloc_bounds_7.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/any_all_1.f90 b/gcc/testsuite/gfortran.dg/any_all_1.f90 index f1a14474034..f00c477b74a 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 22e5bf0af7a..5a38813a72e 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 cbc02921153..42e19e5a1e0 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 491a044ea07..2194eee35a4 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" } -- 2.30.2