From 792f0ae4fe6055fa3ac4776878d179fc5494ddb2 Mon Sep 17 00:00:00 2001 From: tkoenig Date: Tue, 20 Nov 2007 21:57:04 +0000 Subject: 2007-11-20 Thomas Koenig PR fortran/32770 * gfortran.dg/record_marker_1.f90: Explicitly set kinds so test passes with -frecord-marker=8. * gfortran.dg/integer_exponentiation_1.f90: Likewise. * gfortran.dg/integer_exponentiation_2.f90: Likewise. * gfortran.dg/integer_exponentiation_3.F90: Likewise. * gfortran.dg/integer_exponentiation_5.F90: Likewise. * gfortrand.dg/modulo_1.f90: Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130322 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90') diff --git a/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 b/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 index da75dbaa383..3d95fb102cc 100644 --- a/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 +++ b/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 @@ -82,9 +82,9 @@ program test TEST(1_8,0_8,i8) TEST(-1,0,i4) TEST(-1_8,0_8,i8) - TEST(huge(0),0,i4) + TEST(huge(0_4),0,i4) TEST(huge(0_8),0_8,i8) - TEST(-huge(0)-1,0,i4) + TEST(-huge(0_4)-1,0,i4) TEST(-huge(0_8)-1_8,0_8,i8) TEST(1,1,i4) @@ -164,7 +164,7 @@ program test TEST(2.0,-3_8,r4) TEST(nearest(1.0,-1.0),0,r4) - TEST(nearest(1.0,-1.0),huge(0),r4) ! { dg-warning "Arithmetic underflow" } + TEST(nearest(1.0,-1.0),huge(0_4),r4) ! { dg-warning "Arithmetic underflow" } TEST(nearest(1.0,-1.0),0_8,r4) TEST(nearest(1.0_8,-1.0),huge(0_8),r8) ! { dg-warning "Arithmetic underflow" } -- cgit v1.2.1