1! REPEAT intrinsic, test for PR 31304 2! We check that REPEAT accepts all kind arguments for NCOPIES 3! 4! { dg-do run } 5program test 6 implicit none 7 8 integer(kind=1) i1 9 integer(kind=2) i2 10 integer(kind=4) i4 11 integer(kind=4) i8 12 real(kind=8) r 13 character(len=2) s1, s2 14 15 i1 = 1 ; i2 = 1 ; i4 = 1 ; i8 = 1 16 r = 1 17 s1 = '42' 18 r = nearest(r,r) 19 20 s2 = repeat(s1,i1) 21 if (s2 /= s1) call abort 22 s2 = repeat(s1,i2) 23 if (s2 /= s1) call abort 24 s2 = repeat(s1,i4) 25 if (s2 /= s1) call abort 26 s2 = repeat(s1,i8) 27 if (s2 /= s1) call abort 28 29end program test 30