1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
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(..)
type(real(kind=4)), allocatable :: x(:)
type(integer(kind=4)), allocatable :: x(:)
type(character(len=4)), allocatable :: x(:)
type(logical(kind=4)), allocatable :: x(:)
type(complex(kind=4)), allocatable :: x(:)
save /zzrayc/
end program
|
