! { dg-do compile }
! { dg-options "-std=f2003" }
! F95 and F2003 do not require a blank after STOP

  implicit none
  integer,      parameter :: p = 99
  character(*), parameter :: s = "stopp"
  stop1
  stop2!
  stop3;stop4!
  stopp
  stop&!
       &;stop;&!
       stop&!
       s&
       ;stop"x";&!
       ;st&!
       &op&!
       p
  stops
  stop"last " // s
end