| ! Program to test the TRIM and REPEAT intrinsics. | |
| program intrinsic_trim | |
| character(len=8) a | |
| character(len=4) b,work | |
| a='1234 ' | |
| b=work(8,a) | |
| if (llt(b,"1234")) STOP 1 | |
| a=' ' | |
| b=trim(a) | |
| if (b .gt. "") STOP 2 | |
| b='12' | |
| a=repeat(b,0) | |
| if (a .gt. "") STOP 3 | |
| a=repeat(b,2) | |
| if (a .ne. "12 12 ") STOP 4 | |
| end | |
| function work(i,a) | |
| integer i | |
| character(len=i) a | |
| character(len=4) work | |
| work = trim(a) | |
| end |