1!---------- 2! RUN lines 3!---------- 4! RUN: %flang_fc1 -fdebug-dump-parse-tree %s 2>&1 | FileCheck %s --check-prefix=SEMA_ON 5! RUN: %flang_fc1 -fdebug-dump-parse-tree-no-sema %s 2>&1 | FileCheck %s --check-prefix=SEMA_OFF 6 7! SEMA_ON: | | | NamedConstant -> Name = 'i' 8! SEMA_ON-NEXT: | | | Constant -> Expr = '1_4' 9! SEMA_ON-NEXT: | | | | LiteralConstant -> IntLiteralConstant = '1' 10 11! SEMA_OFF: | | | NamedConstant -> Name = 'i' 12! SEMA_OFF-NEXT: | | | Constant -> Expr -> LiteralConstant -> IntLiteralConstant = '1' 13 14parameter(i=1) 15integer :: j 16end program 17