>>53
REAL A
DIMENSION A(10)
DO 10 I=1,10
A(I) = REAL(I)
10 CONTINUE
A = 1.23
WRITE(*,*) A
WRITE(*,*) (A(I), I=1,10)
END

規格上どうなってたかは知らないが g77だと
A = 1.23
の部分でコンパイルエラーになった。

g95では（当然）