2008-03-04 Uros Bizjak <ubizjak@gmail.com>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / hollerith_f95.f90

diff --git a/gcc/testsuite/gfortran.dg/hollerith_f95.f90 b/gcc/testsuite/gfortran.dg/hollerith_f95.f90
index c7e4d58..1ba7403 100644 (file)
--- a/gcc/testsuite/gfortran.dg/hollerith_f95.f90
+++ b/gcc/testsuite/gfortran.dg/hollerith_f95.f90
@@ -1,16 +1,16 @@
 ! { dg-do compile }
-! { dg-options "-std=f95" }
+! { dg-options "-fall-intrinsics -std=f95" }
 ! PR15966, PR18781 & PR16531
 implicit none
-complex*16 x(2) 
-complex*8 a(2,2)
+complex(kind=8) x(2) 
+complex a(2,2)
 character*4 z
 character z1(4)
 character*4 z2(2,2)
 character*80 line
-integer*4 i
-logical*4 l
-real*4 r
+integer i
+logical l
+real r
 character*8 c
 
 data x /16Habcdefghijklmnop, 16Hqrstuvwxyz012345/
@@ -53,7 +53,7 @@ call test (8h   hello)
 end
 
 subroutine test (h)
-integer*8 h
+integer(kind=8) h
 character*80 line
 
 write (line, '(8a)') h