! { dg-do compile }
|
! { dg-do compile }
|
! Check the fix for PR20839, which concerned non-compliance with one of the
|
! Check the fix for PR20839, which concerned non-compliance with one of the
|
! constraints for block-do-constructs (8.1.4.1.1):
|
! constraints for block-do-constructs (8.1.4.1.1):
|
! Constraint: If the do-stmt of a block-do-construct is identified by a
|
! 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
|
! do-construct-name, the corresponding end-do shall be an end-do-stmt
|
! specifying the same do-construct-name. (Tests a & b)
|
! specifying the same do-construct-name. (Tests a & b)
|
! If the do-stmt of a block-do-construct is not identified by a
|
! 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, the corresponding end-do shall not specify a
|
! do-construct-name. (Tests c & d)
|
! do-construct-name. (Tests c & d)
|
! Constraint: If the do-stmt is a nonlabel-do-stmt, the corresponding end-do
|
! Constraint: If the do-stmt is a nonlabel-do-stmt, the corresponding end-do
|
! shall be an end-do-stmt.
|
! shall be an end-do-stmt.
|
! Constraint: If the do-stmt is a label-do-stmt, the corresponding end-do shall
|
! Constraint: If the do-stmt is a label-do-stmt, the corresponding end-do shall
|
! be identified with the same label.
|
! be identified with the same label.
|
!
|
!
|
! Test a - this was the PR
|
! Test a - this was the PR
|
doi: DO 111 i=1,3 ! { dg-error "requires matching ENDDO name" }
|
doi: DO 111 i=1,3 ! { dg-error "requires matching ENDDO name" }
|
111 continue
|
111 continue
|
! Test b
|
! Test b
|
doii: DO 112 ij=1,3
|
doii: DO 112 ij=1,3
|
112 enddo doij ! { dg-error "Expected label" }
|
112 enddo doij ! { dg-error "Expected label" }
|
! Test c
|
! Test c
|
DO 113 ik=1,3
|
DO 113 ik=1,3
|
113 enddo doik ! { dg-error "Syntax error" }
|
113 enddo doik ! { dg-error "Syntax error" }
|
! Test d
|
! Test d
|
DO il=1,3
|
DO il=1,3
|
enddo doil ! { dg-error "Syntax error" }
|
enddo doil ! { dg-error "Syntax error" }
|
! Test e
|
! Test e
|
doj: DO 114 j=1,3
|
doj: DO 114 j=1,3
|
enddo doj ! { dg-error "doesn't match DO label" }
|
enddo doj ! { dg-error "doesn't match DO label" }
|
|
|
! Correct block do constructs
|
! Correct block do constructs
|
dok: DO 115 k=1,3
|
dok: DO 115 k=1,3
|
dokk: do kk=1,3
|
dokk: do kk=1,3
|
dokkk: DO
|
dokkk: DO
|
do kkkk=1,3
|
do kkkk=1,3
|
do
|
do
|
enddo
|
enddo
|
enddo
|
enddo
|
enddo dokkk
|
enddo dokkk
|
enddo dokk
|
enddo dokk
|
115 enddo dok
|
115 enddo dok
|
! Correct non-block do constructs
|
! Correct non-block do constructs
|
do 117 l=1,3
|
do 117 l=1,3
|
do ll=1,3
|
do ll=1,3
|
do 116 lll=1,3
|
do 116 lll=1,3
|
116 continue
|
116 continue
|
enddo
|
enddo
|
117 enddo
|
117 enddo
|
! These prevent an EOF error, arising from the previous errors.
|
! These prevent an EOF error, arising from the previous errors.
|
end do
|
end do
|
113 end do
|
113 end do
|
112 end do doii
|
112 end do doii
|
END
|
END
|
|
|
|
|
