06/11/18 22:09:41
>>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では（当然）
06/11/18 22:09:41
>>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では（当然）