8 lines
No EOL
102 B
Text
8 lines
No EOL
102 B
Text
program test
|
|
integer :: b
|
|
integer [10] :: a
|
|
real :: c
|
|
do b = 0, 9 then
|
|
a(b) = b
|
|
end do
|
|
end program |