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
12