1c91d9bdea
Before emitting a warning message, code should check that the usage in question should be diagnosed by calling ShouldWarn(). A fair number of sites in the code do not, and can emit portability warnings unconditionally, which can confuse a user that hasn't asked for them (-pedantic) and isn't terribly concerned about portability *to* other compilers. Add calls to ShouldWarn() or IsEnabled() around messages that need them, and add -pedantic to tests that now require it to test their portability messages, and add more expected message lines to those tests when -pedantic causes other diagnostics to fire.
93 lines
2.4 KiB
Fortran
93 lines
2.4 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
|
|
! Check for C1801 - C1805
|
|
|
|
module m
|
|
public s
|
|
!ERROR: Interoperable array must have at least one element
|
|
real, bind(c) :: x(0)
|
|
contains
|
|
subroutine s
|
|
end
|
|
end
|
|
|
|
program main
|
|
use m
|
|
type, abstract :: v
|
|
integer :: i
|
|
end type
|
|
|
|
! ERROR: A derived type with the BIND attribute cannot have the SEQUENCE attribute
|
|
type, bind(c) :: t1
|
|
sequence
|
|
integer :: x
|
|
end type
|
|
|
|
! ERROR: A derived type with the BIND attribute has type parameter(s)
|
|
type, bind(c) :: t2(k)
|
|
integer, KIND :: k
|
|
integer :: x
|
|
end type
|
|
|
|
! ERROR: A derived type with the BIND attribute cannot extend from another derived type
|
|
type, bind(c), extends(v) :: t3
|
|
integer :: x
|
|
end type
|
|
|
|
type, bind(c) :: t4
|
|
integer :: x
|
|
contains
|
|
! ERROR: A derived type with the BIND attribute cannot have a type bound procedure
|
|
procedure, nopass :: b => s
|
|
end type
|
|
|
|
! WARNING: A derived type with the BIND attribute is empty
|
|
type, bind(c) :: t5
|
|
end type
|
|
|
|
type, bind(c) :: t6
|
|
! ERROR: A derived type with the BIND attribute cannot have a pointer or allocatable component
|
|
integer, pointer :: x
|
|
end type
|
|
|
|
type, bind(c) :: t7
|
|
! ERROR: A derived type with the BIND attribute cannot have a pointer or allocatable component
|
|
integer, allocatable :: y
|
|
end type
|
|
|
|
type :: t8
|
|
integer :: x
|
|
end type
|
|
|
|
type, bind(c) :: t9
|
|
!ERROR: Component 'y' of an interoperable derived type must have the BIND attribute
|
|
type(t8) :: y
|
|
integer :: z
|
|
end type
|
|
|
|
type, bind(c) :: t10
|
|
!WARNING: A CHARACTER component of a BIND(C) type should have length 1
|
|
character(len=2) x
|
|
end type
|
|
type, bind(c) :: t11
|
|
!ERROR: Each component of an interoperable derived type must have an interoperable type
|
|
character(kind=2) x
|
|
end type
|
|
type, bind(c) :: t12
|
|
!PORTABILITY: A LOGICAL component of a BIND(C) type should have the interoperable KIND=C_BOOL
|
|
logical(kind=8) x
|
|
end type
|
|
type, bind(c) :: t13
|
|
!ERROR: Each component of an interoperable derived type must have an interoperable type
|
|
real(kind=2) x
|
|
end type
|
|
type, bind(c) :: t14
|
|
!ERROR: Each component of an interoperable derived type must have an interoperable type
|
|
complex(kind=2) x
|
|
end type
|
|
type, bind(c) :: t15
|
|
!ERROR: An array component of an interoperable type must have at least one element
|
|
real :: x(0)
|
|
end type
|
|
|
|
end
|