gcc/testsuite/gfortran.dg/stop_3.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

! { 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