MetOffice#20 LabelledExits system test

system-tests/fortran/configuration.ini

@@ -16,5 +16,8 @@ rules = MissingPointerInit
 [style.wrong_kind]
 rules = KindPattern(integer=r'.*_jazz', real=r'.*_metal')
 
+[style.labelled_exits]
+rules = LabelledExits
+
 [style.multiple]
 rules = FortranCharacterset, MissingImplicit(require_everywhere=True), MissingPointerInit

system-tests/fortran/expected.labelled_exits.txt

@@ -0,0 +1,5 @@
+stdout
+Found 2 issues
+stderr
+$$/labelled_exits.f90: 4: Usage of "exit" without label indicating which do construct is being exited from.
+$$/labelled_exits.f90: 10: Usage of "exit" without label indicating which do construct is being exited from.

system-tests/fortran/labelled_exits.f90

@@ -0,0 +1,15 @@
+program test_program
+    integer :: i, j
+    a : do i = 1, 3
+        exit
+    end do a
+    b : do i = 1, 3
+        exit b
+    end do b
+    c : do i = 1, 3
+        if (i==2) exit
+    end do c
+    d : do i = 1, 3
+        if (i==2) exit d
+    end do d
+end program test_program