fork download
  1. program TEST
  2. real :: x(5)
  3. x = 12
  4. print *, x
  5. end
Success #stdin #stdout 0s 3972KB
stdin
Standard input is empty
stdout
   12.0000000       12.0000000       12.0000000       12.0000000       12.0000000