gcc/testsuite/gfortran.dg/bind_c_module.f90

   1 ! { dg-do compile }
   2 ! See PR fortran/36251.
   3 module a
   4   implicit none
   5   integer :: i = 42
   6 end module a
   7
   8 ! Causes ICE
   9 module b
  10   use iso_c_binding
  11   use a
  12   implicit none
  13   bind(c) :: a  ! { dg-error "applied to" }
  14 end module b
  15
  16 ! Causes ICE
  17 module d
  18   use a
  19   implicit none
  20   bind(c) :: a  ! { dg-error "applied to" }
  21 end module d
  22 ! { dg-final { cleanup-modules "a" } }