program attributes1
! test for AST(to fmt) only
character(len=4) :: a, b
character, intent(in) :: str*(*)
character(len=1, kind=c_char), target, bind(C, name="_binary_fclKernels_cl_start") :: fclKernelStart
character(len=3) :: c(2)
integer, volatile :: d, e
real, external :: g
equivalence (a, c(1)), (b, c(2))
type :: details
    sequence
    integer :: age
    character(len=50) :: name

contains

procedure, pass :: name => sample
end type details
intrinsic :: sin, cos
double precision, intent(in) :: x(..)
type(real(4)), allocatable :: x(:)
type(integer(4)), allocatable :: x(:)
type(character(len=4)), allocatable :: x(:)
type(logical(4)), allocatable :: x(:)
type(complex(4)), allocatable :: x(:)
save :: /zzrayc/
end program attributes1
