11 lines · plain
1! Error test -- DO loop uses obsolete loop termination statement2! See R1131 and C11313 4! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>&1 | FileCheck %s5! CHECK: A DO loop should terminate with an END DO or CONTINUE6 7program endDo8 do 10 i = 1, 5910 print *, "in loop"10end program endDo11