X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fgfortran.dg%2Fhollerith_f95.f90;h=1ba74036c26d36d586bd53d420cb591d0645b833;hb=a049d909ffb04dc8d44431d4499d23cc7c4f271e;hp=c7e4d588f8945568c82b49d928df278568db7ed1;hpb=169f9d09e5d61b72aebc64c5a6632bc376ba2081;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/testsuite/gfortran.dg/hollerith_f95.f90 b/gcc/testsuite/gfortran.dg/hollerith_f95.f90
index c7e4d588f89..1ba74036c26 100644
--- 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