12 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check for C1546 and 18.3.63 4! ERROR: 'test1' may not have both the BIND(C) and ELEMENTAL attributes5elemental subroutine test1() bind(c)6end7 8subroutine test3(x) bind(c)9 ! ERROR: VALUE attribute may not apply to an array in a BIND(C) procedure10 integer, value :: x(100)11end12