[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Driver / color-diagnostics-sema.f90
blobdf7a69f297f12565fb201de03ecb2404d8c53d7b
1 ! Test the behaviors of -f{no-}color-diagnostics when emitting semantic
2 ! diagnostics.
3 ! Windows command prompt doesn't support ANSI escape sequences.
4 ! REQUIRES: shell
6 ! RUN: not %flang %s -fcolor-diagnostics 2>&1 \
7 ! RUN: | FileCheck %s --check-prefix=CHECK_CD
8 ! RUN: not %flang %s -fno-color-diagnostics 2>&1 \
9 ! RUN: | FileCheck %s --check-prefix=CHECK_NCD
10 ! RUN: not %flang_fc1 %s -fcolor-diagnostics 2>&1 \
11 ! RUN: | FileCheck %s --check-prefix=CHECK_CD
12 ! RUN: not %flang_fc1 %s 2>&1 | FileCheck %s --check-prefix=CHECK_NCD
14 ! CHECK_CD: {{.*}}[0;1;31merror: {{.*}}[0mMust be a constant value
16 ! CHECK_NCD: error: Must be a constant value
18 program m
19 integer :: i = k
20 end