mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 15:36:49 +00:00
af61d08280
A derived type name in an IMPLICIT statement might be a host association or it might be a forward reference to a local derived type, which may be shadowing a host-associated name. Add a scan over the specification part in search of derived type definitions to determine the right interpretation. Fixes https://github.com/llvm/llvm-project/issues/87215.
92 lines
2.1 KiB
Fortran
92 lines
2.1 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
module m1
|
|
type t1
|
|
end type
|
|
type t3
|
|
integer t3c
|
|
end type
|
|
interface
|
|
subroutine s1(x)
|
|
!ERROR: 't1' from host is not accessible
|
|
import :: t1
|
|
type(t1) :: x
|
|
!BECAUSE: 't1' is hidden by this entity
|
|
integer :: t1
|
|
end subroutine
|
|
subroutine s2()
|
|
!ERROR: 't2' not found in host scope
|
|
import :: t2
|
|
end subroutine
|
|
subroutine s3(x, y)
|
|
!ERROR: Derived type 't1' not found
|
|
type(t1) :: x, y
|
|
end subroutine
|
|
subroutine s4(x, y)
|
|
!ERROR: 't3' from host is not accessible
|
|
import, all
|
|
type(t1) :: x
|
|
type(t3) :: y
|
|
!BECAUSE: 't3' is hidden by this entity
|
|
integer :: t3
|
|
end subroutine
|
|
end interface
|
|
contains
|
|
subroutine s5()
|
|
end
|
|
subroutine s6()
|
|
import, only: s5
|
|
implicit none(external)
|
|
call s5()
|
|
end
|
|
subroutine s7()
|
|
import, only: t1
|
|
implicit none(external)
|
|
!ERROR: 's5' is an external procedure without the EXTERNAL attribute in a scope with IMPLICIT NONE(EXTERNAL)
|
|
call s5()
|
|
end
|
|
subroutine s8()
|
|
!This case is a dangerous ambiguity allowed by the standard.
|
|
!ERROR: 't1' from host is not accessible
|
|
type(t1), pointer :: p
|
|
!BECAUSE: 't1' is hidden by this entity
|
|
type t1
|
|
integer n(2)
|
|
end type
|
|
end
|
|
subroutine s9()
|
|
!This case is a dangerous ambiguity allowed by the standard.
|
|
type t2
|
|
!ERROR: 't1' from host is not accessible
|
|
type(t1), pointer :: p
|
|
end type
|
|
!BECAUSE: 't1' is hidden by this entity
|
|
type t1
|
|
integer n(2)
|
|
end type
|
|
type(t2) x
|
|
end
|
|
subroutine s10()
|
|
!Forward shadowing derived type in IMPLICIT
|
|
!(supported by all other compilers)
|
|
implicit type(t1) (c) ! forward shadow
|
|
implicit type(t3) (d) ! host associated
|
|
type t1
|
|
integer a
|
|
end type
|
|
c%a = 1
|
|
d%t3c = 2
|
|
end
|
|
end module
|
|
module m2
|
|
integer, parameter :: ck = kind('a')
|
|
end module
|
|
program main
|
|
use m2
|
|
interface
|
|
subroutine s0(x)
|
|
import :: ck
|
|
character(kind=ck) :: x ! no error
|
|
end subroutine
|
|
end interface
|
|
end program
|