1! Ensure argument -std=f2018 works as expected. 2 3!----------------------------------------- 4! FRONTEND FLANG DRIVER (flang -fc1) 5!----------------------------------------- 6! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s --allow-empty --check-prefix=WITHOUT 7! RUN: %flang_fc1 -fsyntax-only -std=f2018 %s 2>&1 | FileCheck %s --check-prefix=GIVEN 8! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck %s --check-prefix=GIVEN 9 10! WITHOUT-NOT: A DO loop should terminate with an END DO or CONTINUE 11 12! GIVEN: A DO loop should terminate with an END DO or CONTINUE 13 14subroutine foo2() 15 do 01 m=1,2 16 select case (m) 17 case default 18 print*, "default", m 19 case (1) 20 print*, "start" 2101 end select 22end subroutine 23