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