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