Add nested do-loop reprinting test

Author: nikolaushuber

test-data/prettyprint/labeled-continue/nested.f

@@ -0,0 +1,11 @@
+      PROGRAM NESTED
+      INTEGER I,J, SUM
+      SUM = 0
+
+      DO 100 I = 1,5
+        DO 100 J = 1,5
+            SUM = SUM + 1
+100   CONTINUE
+
+      PRINT *, 'SUM = ', SUM
+      END

test-data/prettyprint/labeled-continue/nested.f.expected

@@ -0,0 +1,9 @@
+program nested
+integer :: i, j, sum
+sum = 0
+do 100 i = 1, 5
+do 100 j = 1, 5
+sum = (sum + 1)
+100 continue
+print *, 'SUM = ', sum
+end program nested

test-data/prettyprint/labeled-continue/nested.f.f77.expected

@@ -0,0 +1,9 @@
+      program nested
+      integer i, j, sum
+      sum = 0
+      do 100 i = 1, 5
+        do 100 j = 1, 5
+          sum = (sum + 1)
+100     continue
+      print *, 'SUM = ', sum
+      end

test/Language/Fortran/PrettyPrintSpec.hs

@@ -603,6 +603,11 @@ spec =
           let expectedFile = "test-data" </> "prettyprint" </> "labeled-continue" </> "continue-bug.f.expected"
           testParseReprint Fortran90 inputFile expectedFile
 
+        it "correctly reprints F90 nested labeled do loop (nested.f)" $ do
+          let inputFile = "test-data" </> "prettyprint" </> "labeled-continue" </> "nested.f"
+          let expectedFile = "test-data" </> "prettyprint" </> "labeled-continue" </> "nested.f.expected"
+          testParseReprint Fortran90 inputFile expectedFile
+
       describe "Fortran 77" $ do
         it "correctly reprints F77 labeled continue statement (contalt.f)" $ do
           let inputFile = "test-data" </> "prettyprint" </> "labeled-continue" </> "contalt.f"
@@ -613,6 +618,11 @@ spec =
           let inputFile = "test-data" </> "prettyprint" </> "labeled-continue" </> "continue-bug.f"
           let expectedFile = "test-data" </> "prettyprint" </> "labeled-continue" </> "continue-bug.f.f77.expected"
           testParseReprint Fortran77 inputFile expectedFile
+        
+        it "correctly reprints F77 nested labeled do loop (nested.f)" $ do
+          let inputFile = "test-data" </> "prettyprint" </> "labeled-continue" </> "nested.f"
+          let expectedFile = "test-data" </> "prettyprint" </> "labeled-continue" </> "nested.f.f77.expected"
+          testParseReprint Fortran77 inputFile expectedFile
 
 -- | Helper function to test parsing and reprinting a file
 testParseReprint :: FortranVersion -> FilePath -> FilePath -> IO ()