package Ġorg . jetbrains . fortran . ide . ins pe ctions Ċ Ċ class ĠFor tran Stmt Order Test () ĊĠĠĠ Ġ: ĠFor tran Ins pe ctions Base TestCase ( For tran Stmt Order Inspection ()) Ġ{ ĊĊĠĠĠ Ġfun Ġtest St mts In For all Construct () Ġ= Ġcheck By Text (""" ĊĠĠĠĠĠĠĠ Ġforall Ġ( i = 1 : 1 0 : 2 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" This Ġstatement Ġis Ġnot Ġallowed Ġin Ġforall Ġconstruct "> write (* ,*) Ġi </ error > ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" This Ġconstruct Ġis Ġnot Ġallowed Ġin Ġforall Ġconstruct "> do Ġj = 1 , 3 ĊĠĠĠĠĠĠĠĠĠĠĠ Ġenddo </ error > ĊĠĠĠĠĠĠĠ Ġendfor all ĊĠĠĠĠĠĠĠ Ġend ĊĠĠĠ Ġ"" ") ĊĊĠĠĠ Ġfun Ġtest St mts In Where Construct () Ġ= Ġcheck By Text (""" ĊĠĠĠĠĠĠĠ Ġwhere Ġ( 1 < 2 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" This Ġstatement Ġis Ġnot Ġallowed Ġin Ġwhere Ġconstruct "> write (* ,*) Ġi </ error > ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" This Ġconstruct Ġis Ġnot Ġallowed Ġin Ġwhere Ġconstruct "> forall Ġ( j = 1 : 2 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġendfor all </ error > ĊĠĠĠĠĠĠĠ Ġend where ĊĠĠĠĠĠĠĠ Ġend ĊĠĠĠ Ġ"" ") ĊĊĠĠĠ Ġfun Ġtest St mts In Interfaces () Ġ= Ġcheck By Text (""" ĊĠĠĠĠĠ Ġmodule Ġga uss inter ĊĠĠĠĠĠ Ġinterface Ġsolve ĊĠĠĠĠĠĠĠ Ġfunction Ġsolve ( n , Ġp matrix , Ġkey ); ĊĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġimplicit Ġnone ĊĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġreal * 8 , Ġdimension Ġ(: ), Ġpointer Ġ:: Ġ Ġsolve ; ĊĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġreal ( 8 ), Ġdimension Ġ(: ,: ), Ġpointer Ġ:: Ġp matrix ; ĊĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġinteger Ġn , Ġkey ĊĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" This Ġstatement Ġis Ġnot Ġallowed Ġinside Ġthe Ġinterface "> n Ġ= Ġn Ġ+ Ġ 1 </ error > ĊĠĠĠĠĠĠĠ Ġend Ġfunction Ġsolve ĊĠĠĠĠĠ Ġend Ġinterface ĊĠĠĠĠĠ Ġend Ġmodule ĊĠĠĠ Ġ"" ") ĊĊĠĠĠ Ġfun Ġtest St mts In Module () Ġ= Ġcheck By Text (""" ĊĠĠĠĠĠ Ġmodule Ġga uss inter ĊĠĠĠĠĠ Ġinteger Ġ:: Ġa ĊĠĠĠĠĠ Ġ< error Ġdescr =" This Ġstatement Ġis Ġnot Ġallowed Ġin Ġthis Ġprogram Ġunit "> a Ġ= Ġ 1 0 </ error > ĊĠĠĠĠĠ Ġ< error Ġdescr =" Executable Ġconstruct Ġis Ġnot Ġallowed Ġin Ġthis Ġprogram Ġunit "> forall Ġ( j = 1 : 2 ) ĊĠĠĠĠĠ Ġendfor all </ error > ĊĠĠĠĠĠ Ġend Ġmodule ĊĠĠĠ Ġ"" ") ĊĊĊĠĠĠ Ġfun Ġtest Specification St mts In Construct () Ġ= Ġcheck By Text (""" ĊĠĠĠĠĠĠĠ Ġdo Ġi = 1 , 3 ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" Specification Ġstatement Ġis Ġnot Ġallowed Ġhere "> integer Ġ:: Ġi </ error > ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" Specification Ġstatement Ġis Ġnot Ġallowed Ġhere "> alloc atable Ġ:: Ġi </ error > ĊĠĠĠĠĠĠĠ Ġenddo ĊĠĠĠĠĠĠĠ Ġend ĊĠĠĠ Ġ"" ") ĊĊĠĠĠ Ġfun Ġtest Declaration Construct In Construct () Ġ= Ġcheck By Text (""" ĊĠĠĠĠĠĠĠ Ġdo Ġi = 1 , 3 ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" Declaration Ġconstruct Ġis Ġnot Ġallowed Ġin Ġexecutable Ġconstruct "> type Ġ:: Ġmy Type ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġinteger Ġ:: Ġa ĊĠĠĠĠĠĠĠĠĠĠĠ Ġend Ġtype Ġmy Type </ error > ĊĠĠĠĠĠĠĠ Ġenddo ĊĠĠĠĠĠĠĠ Ġend ĊĠĠĠ Ġ"" ") ĊĊĠĠĠ Ġfun Ġtest S mt Order () Ġ= Ġcheck By Text (""" ĊĠĠĠĠĠĠĠ Ġprogram Ġtest St mts Order ĊĠĠĠĠĠĠĠĠĠĠĠ Ġimport ĠT ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" Use Ġstatement Ġis Ġnot Ġallowed Ġhere "> use Ġa </ error > ĊĠĠĠĠĠĠĠĠĠĠĠ Ġparameter Ġpi Ġ= Ġ 3 . 1 4 ĊĠĠĠĠĠĠĠĠĠĠĠ Ġimplicit Ġnone ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" Import Ġstatement Ġis Ġnot Ġallowed Ġhere "> import ĠE </ error > ĊĠĠĠĠĠĠĠĠĠĠĠ Ġinteger Ġ:: Ġa ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" Implicit Ġstatement Ġmust Ġbe Ġin Ġimplicit Ġpart "> implicit Ġnone </ error > ĊĠĠĠĠĠĠĠĠĠĠĠ Ġa Ġ= Ġa Ġ+ Ġ 1 ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ< error Ġdescr =" Specification Ġstatement Ġmust Ġbe Ġin Ġspecification Ġpart "> integer Ġ:: Ġb </ error > ĊĠĠĠĠĠĠĠĠĠĠĠ Ġformat Ġ( 1 PE 1 2 . 4 , ĠI 1 0 ) ĊĠĠĠĠĠĠĠ Ġend Ġprogram ĊĊĠĠĠ Ġ"" ") Ċ Ċ }