! { dg-do run } | |
! { dg-require-effective-target static_libgfortran } | |
! { dg-additional-sources static_linking_1.c } | |
! { dg-options "-static" } | |
! | |
! This testcase checks that statically linking libgfortran with C main() | |
! really calls the constructor function | |
! PR libfortran/22298 | |
subroutine f | |
print *, "subroutine output" | |
end |