xref: /llvm-project/flang/test/Semantics/bind-c08.f90 (revision ac44cb7617a8e46cc23e0d1def4764f7bc13f978)
1*ac44cb76SPeixin-Qiao! RUN: %python %S/test_errors.py %s %flang_fc1
2*ac44cb76SPeixin-Qiao! Check for C1546 and 18.3.6
3*ac44cb76SPeixin-Qiao
4*ac44cb76SPeixin-Qiao! ERROR: 'test1' may not have both the BIND(C) and ELEMENTAL attributes
5*ac44cb76SPeixin-Qiaoelemental subroutine test1() bind(c)
6*ac44cb76SPeixin-Qiaoend
7*ac44cb76SPeixin-Qiao
8*ac44cb76SPeixin-Qiaosubroutine test3(x) bind(c)
9*ac44cb76SPeixin-Qiao  ! ERROR: VALUE attribute may not apply to an array in a BIND(C) procedure
10*ac44cb76SPeixin-Qiao  integer, value :: x(100)
11*ac44cb76SPeixin-Qiaoend
12