OSDN Git Service

2010-06-26 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / semicolon_fixed.f
1 ! { dg-do compile }
2 ! { dg-options "-std=f2003" }
3 !
4 ! PR 19259 Semicolon cannot start a line (in F2003)
5       x=1; y=1;
6       x=2;;
7       x=3;
8       ;                         ! { dg-error "Fortran 2008: Semicolon at" }
9       ;;                        ! { dg-error "Fortran 2008: Semicolon at" }
10  900  ;                         ! { dg-error "Semicolon at" }
11       end