attributes1.f90

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(50):: name
    contains
        procedure, pass:: name => sample
end type details
intrinsic sin, cos
doubleprecision, intent (in) :: x(..)
save /zzrayc/
end program