※ 引述《darrenmm (mm)》之铭言：
: 我的程式码如下:
: ==============================================
: program Q1
: implicit none
: real,parameter :: n=30
^^^^^
: real(kind=8) :: a(n)
^^^ <