fork download
  1. program TEST
  2. print *, (-2**2)
  3. print *, (-(2)**2)
  4. a=2
  5. print *, (-a**2)
  6. stop
  7. end
Success #stdin #stdout 0s 3980KB
stdin
Standard input is empty
stdout
          -4
          -4
  -4.00000000