Hi! On 2023-02-24T07:16:51+0200, Rimvydas Jasinskas via Fortran <fort...@gcc.gnu.org> wrote: > From 5b83226c714b17780334b5bad9b17c2266af8232 Mon Sep 17 00:00:00 2001 > From: Rimvydas Jasinskas <rimvydas....@gmail.com> > Date: Fri, 24 Feb 2023 04:41:00 +0000 > Subject: Fortran: Add support for WEAK attribute for variables > > Add the rest of the weak-*.f90 testcases.
> --- /dev/null > +++ b/gcc/testsuite/gfortran.dg/weak-2.f90 > @@ -0,0 +1,26 @@ > +! { dg-do compile } > +! { dg-require-weak "" } > +! { dg-skip-if "" { x86_64-*-mingw* } } > +! { dg-skip-if "" { nvptx-*-* } } > +[...] Pushed to master branch commit b3c5933ee726004e4e47291d422dfe7ac3345062 "Enable 'gfortran.dg/weak-2.f90' for nvptx target", see attached. I'm sorry I've not yet been able to look into the other items discussed in this thread. Grüße Thomas ----------------- Siemens Electronic Design Automation GmbH; Anschrift: Arnulfstraße 201, 80634 München; Gesellschaft mit beschränkter Haftung; Geschäftsführer: Thomas Heurung, Frank Thürauf; Sitz der Gesellschaft: München; Registergericht München, HRB 106955
>From b3c5933ee726004e4e47291d422dfe7ac3345062 Mon Sep 17 00:00:00 2001 From: Thomas Schwinge <tho...@codesourcery.com> Date: Tue, 28 Mar 2023 22:26:30 +0200 Subject: [PATCH] Enable 'gfortran.dg/weak-2.f90' for nvptx target Follow-up to commit bcbeebc498126c50d73809ec8a4bd0bff27ee97b "Fortran: Add support for WEAK attribute for variables". gcc/testsuite/ * gfortran.dg/weak-2.f90: Enable for nvptx target. --- gcc/testsuite/gfortran.dg/weak-2.f90 | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/weak-2.f90 b/gcc/testsuite/gfortran.dg/weak-2.f90 index 3e0e877e903..ab273a13b6c 100644 --- a/gcc/testsuite/gfortran.dg/weak-2.f90 +++ b/gcc/testsuite/gfortran.dg/weak-2.f90 @@ -1,10 +1,10 @@ ! { dg-do compile } ! { dg-require-weak "" } ! { dg-skip-if "" { x86_64-*-mingw* } } -! { dg-skip-if "" { nvptx-*-* } } ! 1. -! { dg-final { scan-assembler "weak\[^ \t\]*\[ \t\]_?__foo_MOD_abc" } } +! { dg-final { scan-assembler "weak\[^ \t\]*\[ \t\]_?__foo_MOD_abc" { target { ! nvptx-*-* } } } } +! { dg-final { scan-assembler-times "\\.weak \\.global \\.align 4 \\.u32 __foo_MOD_abc" 1 { target nvptx-*-* } } } module foo implicit none !GCC$ ATTRIBUTES weak :: abc @@ -12,14 +12,16 @@ real :: abc(7) end module ! 2. -! { dg-final { scan-assembler "weak\[^ \t\]*\[ \t\]_?impl1" } } +! { dg-final { scan-assembler "weak\[^ \t\]*\[ \t\]_?impl1" { target { ! nvptx-*-* } } } } +! { dg-final { scan-assembler-times "\\.weak \\.func \\(\\.param\\.u32 %value_out\\) impl1" 2 { target nvptx-*-* } } } integer function impl1() implicit none !GCC$ ATTRIBUTES weak :: impl1 end function ! 3. -! { dg-final { scan-assembler "weak\[^ \t\]*\[ \t\]_?bar__" } } +! { dg-final { scan-assembler "weak\[^ \t\]*\[ \t\]_?bar__" { target { ! nvptx-*-* } } } } +! { dg-final { scan-assembler-times "\\.weak \\.func \\(\\.param\\.u32 %value_out\\) bar__" 2 { target nvptx-*-* } } } integer function impl2() bind(c,name='bar__') implicit none !GCC$ ATTRIBUTES weak :: impl2 -- 2.25.1