This commit is contained in:
tth 2022-02-16 17:10:36 +01:00
parent f09e0cad54
commit 355d61df23

View File

@ -110,7 +110,7 @@ contains
bloub%alive = .TRUE. bloub%alive = .TRUE.
call random_pv(bloub) call random_pv(bloub)
bloub%radius = wtf bloub%radius = wtf
bloub%seq = foo bloub%age = foo
! call display_bloub (bloub, "new bloub") ! call display_bloub (bloub, "new bloub")
write(un) bloub ! no error control ? write(un) bloub ! no error control ?