re PR fortran/32770 ([Meta-bug] -fdefault-integer-8 issues)

2007-08-02  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/32770
	* gfortran.dg/unf_read_corrupted_1.f90:  Make all kinds
	explicit so test passes with -fdefault-integer-8.
	* gfortran.dg/unformatted_recl_1.f90:  Likewise.
	* gfortran.dg/unformatted_subrecord_1.f90:  Likewise.

From-SVN: r127168

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 07d751b5d7ae1f23a796243a92f6fa443e91c4f6..fe19024a0103cca07476252042b14b825e4a645c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+2007-08-02  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+       PR fortran/32770
+       * gfortran.dg/unf_read_corrupted_1.f90:  Make all kinds
+       explicit so test passes with -fdefault-integer-8.
+       * gfortran.dg/unformatted_recl_1.f90:  Likewise.
+       * gfortran.dg/unformatted_subrecord_1.f90:  Likewise.
+
 2007-08-02  Lee Millward  <lee.millward@gmail.com>
 
        PR c++/30849

diff --git a/gcc/testsuite/gfortran.dg/unf_read_corrupted_1.f90 b/gcc/testsuite/gfortran.dg/unf_read_corrupted_1.f90
index 166d52915306da0f6537782663d4ada0ec0d6da9..1361ca3669c47dee131e80ff32f6f12d7415dc79 100644 (file)
--- a/gcc/testsuite/gfortran.dg/unf_read_corrupted_1.f90
+++ b/gcc/testsuite/gfortran.dg/unf_read_corrupted_1.f90
@@ -3,8 +3,8 @@
 ! corrupted.
 program main
   implicit none
-  integer :: i1, i2
-  integer :: ios
+  integer(kind=4) :: i1, i2
+  integer(kind=4) :: ios
   character(len=50) :: msg
 
   ! Write out a truncated unformatted sequential file by
@@ -12,7 +12,7 @@ program main
 
   open (10, form="unformatted", access="stream", file="foo.dat", &
   status="unknown")
-  write (10) 16, 1
+  write (10) 16_4, 1_4
   close (10, status="keep")
 
   ! Try to read

diff --git a/gcc/testsuite/gfortran.dg/unformatted_recl_1.f90 b/gcc/testsuite/gfortran.dg/unformatted_recl_1.f90
index e9aeebbb999f0b6cf0a5763c5fcef2e93865a8e1..dbafff131e83b2ba09f53483f8f047e5e82e1cd1 100644 (file)
--- a/gcc/testsuite/gfortran.dg/unformatted_recl_1.f90
+++ b/gcc/testsuite/gfortran.dg/unformatted_recl_1.f90
@@ -1,7 +1,7 @@
 ! { dg-do run } 
 ! PR31099 Runtime error on legal code using RECL
 program test
-  integer :: a, b
+  integer(kind=4) :: a, b
   a=1
   b=2
   open(10, status="scratch", form="unformatted", recl=8)

diff --git a/gcc/testsuite/gfortran.dg/unformatted_subrecord_1.f90 b/gcc/testsuite/gfortran.dg/unformatted_subrecord_1.f90
index 5812a8eaaf569a4f5bd9846e57db7be0278f06cc..5d59daad186fed5e1e516fdea792d30e379d8ad4 100644 (file)
--- a/gcc/testsuite/gfortran.dg/unformatted_subrecord_1.f90
+++ b/gcc/testsuite/gfortran.dg/unformatted_subrecord_1.f90
@@ -1,13 +1,15 @@
 ! { dg-do run }
 ! { dg-options "-fmax-subrecord-length=16" }
 ! Test Intel record markers with 16-byte subrecord sizes.
+! PR 32770:  Use explicit kinds for all integers and constants,
+! to avoid problems with -fdefault-integer-8 and -fdefault-real-8
 program main
   implicit none
-  integer, dimension(20) :: n
-  integer, dimension(30) :: m
-  integer :: i
-  real :: r
-  integer :: k
+  integer(kind=4), dimension(20) :: n
+  integer(kind=4), dimension(30) :: m
+  integer(kind=4) :: i
+  real(kind=4) :: r
+  integer(kind=4) :: k
   ! Maximum subrecord length is 16 here, or the test will fail.
   open (10, file="f10.dat", &
        form="unformatted", access="sequential")
@@ -33,13 +35,13 @@ program main
   if (any(n(1:5) .ne. (/ 1, 4, 9, 16, 25 /))) call abort
   if (any(n(6:20) .ne. 0)) call abort
   ! Append to the end of the file
-  write (10) 3.14
+  write (10) 3.14_4
   ! Test multiple backspace statements
   backspace 10
   backspace 10
   read (10) k
   if (k .ne. 1) call abort
   read (10) r
-  if (abs(r-3.14) .gt. 1e-7) call abort
+  if (abs(r-3.14_4) .gt. 1e-7) call abort
   close (10, status="delete")
 end program main