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