mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
13 lines
300 B
Fortran
13 lines
300 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-std=f2008" }
|
|
|
|
! PR 19259 Semicolon cannot start a line
|
|
! but it F2008 it can!
|
|
x=1; y=1;
|
|
x=2;;
|
|
x=3;
|
|
; ! OK
|
|
;; ! OK
|
|
900 ; ! { dg-error "Semicolon at" }
|
|
end
|