gcc/testsuite/gfortran.dg/bind_c_usage_34.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

! { dg-do compile }
! PR fortran/104332 - ICE with bind(c) in block data
! Contributed by G. Steinmetz

block data
  bind(c) :: a ! { dg-error "cannot be BIND\\(C\\)" }
end

block data aa
   real, bind(c) :: a ! { dg-error "cannot be BIND\\(C\\)" }
end

block data bb
   real    :: a ! { dg-error "cannot be BIND\\(C\\)" }
   bind(c) :: a
end

block data cc
   common /a/ x
   bind(c) :: /a/
end