gcc/testsuite/gfortran.dg/static_linking_1.f

   1 ! { dg-do run }
   2 ! { dg-require-effective-target static_libgfortran }
   3 ! { dg-additional-sources static_linking_1.c }
   4 ! { dg-options "-static" }
   5 !
   6 ! This testcase checks that statically linking libgfortran with C main()
   7 ! really calls the constructor function
   8 ! PR libfortran/22298
   9       subroutine f
  10         print *, "subroutine output"
  11       end