mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
12 lines
346 B
Fortran
12 lines
346 B
Fortran
! { 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
|