Commit 59565087 by Thomas Koenig

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
parent 8fa8585d
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
program main program main
real, dimension(2,2) :: a real, dimension(2,2) :: a
logical(kind=4), dimension(2) :: b logical(kind=4), dimension(2) :: b
integer, dimension(2) :: i integer(kind=4), dimension(2) :: i
equivalence (b,i) equivalence (b,i)
data a /1.0, 2.0, -0.1, -0.2 / data a /1.0, 2.0, -0.1, -0.2 /
......
...@@ -15,7 +15,7 @@ end module tst ...@@ -15,7 +15,7 @@ end module tst
program main program main
use tst use tst
implicit none implicit none
integer(kind=4) :: res(3) integer :: res(3)
call foo(res) call foo(res)
end program main end program main
! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" } ! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" }
......
...@@ -15,7 +15,7 @@ end module tst ...@@ -15,7 +15,7 @@ end module tst
program main program main
use tst use tst
implicit none implicit none
integer(kind=4) :: res(3) integer :: res(3)
call foo(res) call foo(res)
end program main end program main
! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" } ! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" }
......
...@@ -15,7 +15,7 @@ end module tst ...@@ -15,7 +15,7 @@ end module tst
program main program main
use tst use tst
implicit none implicit none
integer(kind=4) :: res(3) integer :: res(3)
call foo(res) call foo(res)
end program main end program main
! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" } ! { dg-output "Fortran runtime error: Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment