32 lines · plain
1! Error test -- DO loop uses obsolete loop termination statement (warning)2! 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! RUN: %flang_fc1 -fdebug-unparse-with-symbols -pedantic %s 2>%t.stderr | FileCheck %s8 9! CHECK: end do10 11! The following CHECK-NOT actively uses the fact that the leading zero of labels12! would be removed in the unparse but not the line linked to warnings. We do13! not want to see label do in the unparse only.14! CHECK-NOT: do [1-9]15 16! RUN: FileCheck --check-prefix=ERR --input-file=%t.stderr %s17! ERR: A DO loop should terminate with an END DO or CONTINUE18 19subroutine foo6(a)20 type whatever21 class(*), allocatable :: x22 end type23 type(whatever) :: a(10)24 do 01 k=1,1025 select type (ax => a(k)%x)26 type is (integer)27 print*, "integer: ", ax28 class default29 print*, "not useable"3001 end select31end subroutine32