d03cd05f07
…terfaces
In "PROCEDURE(iface) :: proc", if "iface" has the BIND(C) attribute,
then so should proc, as if the declaration had been "PROCEDURE(iface),
BIND(C) :: proc". This had been working in name resolution only in cases
where "iface" had been declared before "proc".
Note that if "iface" is declared with an empty binding name
("BIND(C,NAME='')"), "proc" does not inherit that property. Use an
explicit "BIND(C,NAME='')" on the "PROCEDURE" statement for that.
This behavior is not clearly defined in the standard, but seems to match
what some other Fortran compilers do.
51 lines
1.3 KiB
Fortran
51 lines
1.3 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
|
|
! Check for 8.6.4(1)
|
|
! The BIND statement specifies the BIND attribute for a list of variables and
|
|
! common blocks.
|
|
|
|
module m
|
|
|
|
interface
|
|
subroutine proc()
|
|
end
|
|
end interface
|
|
procedure(proc) :: pc1
|
|
!ERROR: Only variable and named common block can be in BIND statement
|
|
bind(c) :: proc
|
|
!ERROR: Only variable and named common block can be in BIND statement
|
|
bind(c) :: pc1
|
|
|
|
!ERROR: BIND_C attribute was already specified on 'sub'
|
|
!ERROR: Only variable and named common block can be in BIND statement
|
|
bind(c) :: sub
|
|
|
|
!PORTABILITY: Global name 'm' conflicts with a module
|
|
!PORTABILITY: Name 'm' declared in a module should not have the same name as the module
|
|
bind(c) :: m ! no error for implicit type variable
|
|
|
|
type my_type
|
|
integer :: i
|
|
end type
|
|
!ERROR: Only variable and named common block can be in BIND statement
|
|
bind(c) :: my_type
|
|
|
|
enum, bind(c) ! no error
|
|
enumerator :: SUNDAY, MONDAY
|
|
end enum
|
|
|
|
integer :: x, y, z = 1
|
|
common /blk/ y
|
|
bind(c) :: x, /blk/, z ! no error for variable and common block
|
|
|
|
bind(c) :: implicit_i ! no error for implicit type variable
|
|
|
|
!ERROR: 'implicit_blk' appears as a COMMON block in a BIND statement but not in a COMMON statement
|
|
bind(c) :: /implicit_blk/
|
|
|
|
contains
|
|
|
|
subroutine sub() bind(c)
|
|
end
|
|
|
|
end
|