26 lines · plain
1! Error test -- DO loop uses obsolete loop termination statement2! See R1131 and C11333 4! By default, this is not an error and label do are rewritten to non-label do.5! A warning is generated with -pedantic6 7 8! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s9 10! CHECK: end do11 12! The following CHECK-NOT actively uses the fact that the leading zero of labels13! would be removed in the unparse but not the line linked to warnings. We do14! not want to see label do in the unparse only.15! CHECK-NOT: do [1-9]16 17! RUN: FileCheck --check-prefix=ERR --input-file=%t.stderr %s18! ERR: A DO loop should terminate with an END DO or CONTINUE19 20subroutine foo1()21 do 01 k=1,222 do i=3,423 print*, i+k2401 end do25end subroutine26