1! Program to test the TRIM and REPEAT intrinsics.
2program intrinsic_trim
3  character(len=8) a
4  character(len=4) b,work
5  a='1234    '
6  b=work(8,a)
7  if (llt(b,"1234")) call abort()
8  a='     '
9  b=trim(a)
10  if (b .gt. "") call abort()
11  b='12'
12  a=repeat(b,0)
13  if (a .gt. "") call abort()
14  a=repeat(b,2)
15  if (a .ne. "12  12  ") call abort()
16end
17
18function work(i,a)
19  integer i
20  character(len=i) a
21  character(len=4) work
22  work = trim(a)
23end
24