diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-05-04 20:56:30 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-05-04 20:56:30 +0000 |
| commit | 5956508768610024628fddf69bd31b63535dc39e (patch) | |
| tree | f40a864d0ad72fb3fcce7a45d51c2d2af72f9367 /gcc | |
| parent | 8fa8585de83aa9ff48ff462d3caf5f69411d46ab (diff) | |
| download | gcc-5956508768610024628fddf69bd31b63535dc39e.zip gcc-5956508768610024628fddf69bd31b63535dc39e.tar.gz gcc-5956508768610024628fddf69bd31b63535dc39e.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/any_all_1.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/maxloc_bounds_4.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/maxloc_bounds_5.f90 | 2 | ||||
| -rw-r--r-- | 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 f1a1447..f00c477 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 22e5bf0..5a38813a 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 cbc0292..42e19e5 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 491a044..2194eee 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" } |