gcc/testsuite/gfortran.dg/stop_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f2003" }
   3 ! F95 and F2003 do not require a blank after STOP
   4
   5   implicit none
   6   integer,      parameter :: p = 99
   7   character(*), parameter :: s = "stopp"
   8   stop1
   9   stop2!
  10   stop3;stop4!
  11   stopp
  12   stop&!
  13        &;stop;&!
  14        stop&!
  15        s&
  16        ;stop"x";&!
  17        ;st&!
  18        &op&!
  19        p
  20   stops
  21   stop"last " // s
  22 end