配列の読み込み、書き出し

Question

前提・実現したいこと

Fortranのファイル操作の応用として、

test
1,2,3
4,5
6,7,8

のような配列を1行ずつ読み込みたいのですがうまくいきません。
行数のカウントはうまくいくのですが、数値を読み込みません、どのようにしたらいいのでしょうか？

実行結果

  n=           4
 test
   0.00000000
At line 27 of file p2.f90
Fortran runtime error: Attempting to allocate already allocated variable 'a'

Error termination. Backtrace:
#0  0xffffffffffffffff in ???
#1  0xffffffffffffffff in ???
#2  0xffffffffffffffff in ???
#3  0xffffffffffffffff in ???
#4  0xffffffffffffffff in ???
#5  0xffffffffffffffff in ???
#6  0xffffffffffffffff in ???
#7  0xffffffffffffffff in ???
#8  0xffffffffffffffff in ???

該当のソースコード

program p2
 implicit none
 real,allocatable :: a(:)
 integer i
 integer n
 character(len=50) :: str1

open(20,file='p2.txt',status='old')
 read(20,*) str1
 n=0
do
 read(20,*,end=99) a
 n=n+1
end do

99 print *,('n='),n
 print *,str1
do i=2,n
 allocate(a(100))
 print *,a(i)
end do

close(20)

!open(21,file='p2.csv',status='replace')
!do i=1,n
! write(21,*) a
!end do
!close(21)

end program p2

試したこと

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

allocateしないで使えるんでしたっけ？

また、１行目はtestという文字列なんですよね？
どこにどう読み込んでいるつもりですか？

Comments

[MYJ]

すみません、質問の仕方が良くなかったですね。質問内容を更新しました。
allocateを追加する位置はあっていますか？
testを配列の一番上に読み込むつもりでした。
Fortranをはじめたばかりでわからないことが多いのですが、よろしくお願いします。

[otn]

今週から学び始めたところなら、
もっと単純なプログラムから始める方が良いと思います。

> allocateを追加する位置はあっていますか？
使う前に必要です。

> testを配列の一番上に読み込むつもりでした。
文字列の読み込みは、文字列型変数が必要です。

[MYJ]

回答ありがとうございます！
もう少し頑張ってみたいと思います！