OSDN Git Service

2007-08-02 Thomas Koenig <tkoenig@gcc.gnu.org>
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 2 Aug 2007 20:07:54 +0000 (20:07 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 2 Aug 2007 20:07:54 +0000 (20:07 +0000)
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127168 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/unf_read_corrupted_1.f90
gcc/testsuite/gfortran.dg/unformatted_recl_1.f90
gcc/testsuite/gfortran.dg/unformatted_subrecord_1.f90

index 07d751b..fe19024 100644 (file)
@@ -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
index 166d529..1361ca3 100644 (file)
@@ -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
index e9aeebb..dbafff1 100644 (file)
@@ -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)
index 5812a8e..5d59daa 100644 (file)
@@ -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