与程序的命名规则违反了
把1改成main(首字符必须是英文字母)
PROGRAM main
DOUBLE PRECISION,PARAMETER:: PI=3.1415926
DOUBLE PRECISION R,S
READ *,R
S=PI*(R**2)
WRITE(*,*) S
END PROGRAM main
与程序的命名规则违反了
把1改成main(首字符必须是英文字母)
PROGRAM main
DOUBLE PRECISION,PARAMETER:: PI=3.1415926
DOUBLE PRECISION R,S
READ *,R
S=PI*(R**2)
WRITE(*,*) S
END PROGRAM main