Open Watcom FORTRAN 77 Language Reference

Assignment Statements
Example:
CHARACTER C1*10, C2*5, C3*7
LOGICAL L1, L2, L3
INTEGER*2 K, L
I = S = J = T = 1.25
PRINT *, I, S, J, T
I = K = J = L = 70000
PRINT *, I, K, J, L
C1 = C2 = C3 = ’ABCDEFGHIJKL’
PRINT *, C1, C2, C3
L1 = L2 = L3 = .TRUE.
PRINT *, L1, L2, L3
END
The output from this program would be:
1 1.0000000 1 1.2500000
4464 4464 4464 4464
ABCDE ABCDEABCDEFG
T T T
Note that variables K and L are of type INTEGER*2 and cannot contain any value greater than 32767.
Truncation resulted and this value (4464) was propagated to the left.
Extended Assignment Statement 191