Subversion Repositories openrisc_me

! { dg-do compile }

! Check the fix for PR20839, which concerned non-compliance with one of the

! constraints for block-do-constructs (8.1.4.1.1):

! Constraint: If the do-stmt of a block-do-construct is identified by a

! do-construct-name, the corresponding end-do shall be an end-do-stmt

! specifying the same do-construct-name. (Tests a & b)

! If the do-stmt of a block-do-construct is not identified by a

! do-construct-name, the corresponding end-do shall not specify a

! do-construct-name. (Tests c & d)

! Constraint: If the do-stmt is a nonlabel-do-stmt, the corresponding end-do

! shall be an end-do-stmt.

! Constraint: If the do-stmt is a label-do-stmt, the corresponding end-do shall

! be identified with the same label.

!

! Test a - this was the PR

  doi: DO 111 i=1,3 ! { dg-error "requires matching ENDDO name" }

111 continue

! Test b

  doii: DO 112 ij=1,3

112 enddo doij      ! { dg-error "Expected label" }

! Test c

  DO 113 ik=1,3

113 enddo doik      ! { dg-error "Syntax error" }

! Test d

  DO il=1,3

  enddo doil        ! { dg-error "Syntax error" }

! Test e

  doj: DO 114 j=1,3

  enddo doj         ! { dg-error "doesn't match DO label" }

! Correct block do constructs

dok: DO 115 k=1,3

    dokk: do kk=1,3

        dokkk: DO

                   do kkkk=1,3

                       do

                       enddo

                   enddo

               enddo dokkk

          enddo dokk

115  enddo dok

! Correct non-block do constructs

  do 117 l=1,3

      do ll=1,3

          do 116 lll=1,3

116       continue

      enddo

117 enddo

! These prevent an EOF error, arising from the previous errors.

end do

113 end do

112 end do doii

END