]>
Commit | Line | Data |
---|---|---|
95d47b8d TB |
1 | ! { dg-do compile } |
2 | ! { dg-options "-std=f2008ts -fdump-tree-original" } | |
be2b2462 | 3 | ! { dg-additional-options "-mno-explicit-relocs" { target alpha*-*-* } } |
8eb03ce8 | 4 | ! { dg-additional-options "-mno-relax-pic-calls" { target mips*-*-* } } |
95d47b8d TB |
5 | ! |
6 | ! Check that assumed-shape variables are correctly passed to BIND(C) | |
7 | ! as defined in TS 29913 | |
bbf18dc5 | 8 | ! |
95d47b8d TB |
9 | interface |
10 | subroutine test (xx) bind(C, name="myBindC") | |
11 | type(*), dimension(:,:) :: xx | |
12 | end subroutine test | |
13 | end interface | |
14 | ||
15 | integer :: aa(4,4) | |
16 | call test(aa) | |
17 | end | |
18 | ||
2d468b13 | 19 | ! { dg-final { scan-assembler-times "\[ \t\]\[$,_0-9\]*myBindC" 1 { target { ! { hppa*-*-* s390*-*-* *-*-cygwin* amdgcn*-*-* powerpc-ibm-aix*} } } } } |
7bb7b836 | 20 | ! { dg-final { scan-assembler-times "myBindC,%r2" 1 { target { hppa*-*-* } } } } |
c2d7c404 | 21 | ! { dg-final { scan-assembler-times "call\tmyBindC" 1 { target { *-*-cygwin* } } } } |
cbb0e83b | 22 | ! { dg-final { scan-assembler-times "brasl\t%r\[0-9\]*,myBindC" 1 { target { s390*-*-* } } } } |
2d468b13 | 23 | ! { dg-final { scan-assembler-times "bl \.myBindC" 1 { target { powerpc-ibm-aix* } } } } |
674931d2 | 24 | ! { dg-final { scan-assembler-times "add_u32\t\[sv\]\[0-9\]*, \[sv\]\[0-9\]*, myBindC@rel32@lo" 1 { target { amdgcn*-*-* } } } } |
0cbf0368 | 25 | ! { dg-final { scan-tree-dump-times "gfc_desc_to_cfi_desc \\\(&cfi\\." 1 "original" } } |