! REPEAT intrinsic, test for PR 31304 | |
! We check that REPEAT accepts all kind arguments for NCOPIES | |
! | |
! { dg-do run } | |
program test | |
implicit none | |
integer(kind=1) i1 | |
integer(kind=2) i2 | |
integer(kind=4) i4 | |
integer(kind=4) i8 | |
real(kind=8) r | |
character(len=2) s1, s2 | |
i1 = 1 ; i2 = 1 ; i4 = 1 ; i8 = 1 | |
r = 1 | |
s1 = '42' | |
r = nearest(r,r) | |
s2 = repeat(s1,i1) | |
if (s2 /= s1) STOP 1 | |
s2 = repeat(s1,i2) | |
if (s2 /= s1) STOP 2 | |
s2 = repeat(s1,i4) | |
if (s2 /= s1) STOP 3 | |
s2 = repeat(s1,i8) | |
if (s2 /= s1) STOP 4 | |
end program test |