diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-20 21:57:04 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-20 21:57:04 +0000 |
| commit | 792f0ae4fe6055fa3ac4776878d179fc5494ddb2 (patch) | |
| tree | 48734cb82fda31c3d2e9f65f29c62990bb4f3667 /gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 | |
| parent | f69adbabb48b90bf280ff4e480af766204975014 (diff) | |
| download | gcc-792f0ae4fe6055fa3ac4776878d179fc5494ddb2.tar.gz | |
2007-11-20 Thomas Koenig <tkoenig@gcc.gnu.org>
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
Diffstat (limited to 'gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
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" } |