brintos / llvm-project-archived public Read only

1!RUN: not %flang_fc1 %s 2>&1 | FileCheck %s2!CHECK: error: Actual argument for 'a1=' has bad type 'CHARACTER(KIND=1,LEN=1_8)'3real, parameter :: bad_amax0 = amax0('a', 'b')4end5