| ! 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) call abort |
| s2 = repeat(s1,i2) |
| if (s2 /= s1) call abort |
| s2 = repeat(s1,i4) |
| if (s2 /= s1) call abort |
| s2 = repeat(s1,i8) |
| if (s2 /= s1) call abort |
| |
| end program test |