Hello!
Without -mno-explicit-relocs, alpha generates:
ldq $27,myBindC($29) !literal!6
jsr $26,($27),myBindC !lituse_jsr!6
which confuses scan-assembler-times "..." 1.
Also, added appropriate cleanup-tree-dump while there.
Tested on alphaev68-pc-linux-gnu, committed to mainline SVN.
Uros.
Index: bind_c_array_params_2.f90
===================================================================
--- bind_c_array_params_2.f90 (revision 189904)
+++ bind_c_array_params_2.f90 (working copy)
@@ -1,5 +1,6 @@
! { dg-do compile }
! { dg-options "-std=f2008ts -fdump-tree-original" }
+! { dg-additional-options "-mno-explicit-relocs" { target alpha*-*-* } }
!
! Check that assumed-shape variables are correctly passed to BIND(C)
! as defined in TS 29913
@@ -14,6 +15,6 @@
call test(aa)
end
+! { dg-final { scan-assembler-times "myBindC" 1 } }
! { dg-final { scan-tree-dump-times "test \\\(&parm\\." 1 "original" } }
-! { dg-final { scan-assembler-times "myBindC" 1 } }
-
+! { dg-final { cleanup-tree-dump "original" } }
