diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture')
3 files changed, 13 insertions, 13 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/der_io.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/der_io.f90 index 0e9b071..b1b421b 100644 --- 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 fcfe233..79a511c 100644 --- 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 b20797e..61f374c 100644 --- 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 |