1 ! Copyright 2019 Free Software Foundation, Inc.
3 ! This program is free software; you can redistribute it and/or modify
4 ! it under the terms of the GNU General Public License as published by
5 ! the Free Software Foundation; either version 3 of the License, or
6 ! (at your option) any later version.
8 ! This program is distributed in the hope that it will be useful,
9 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
10 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 ! GNU General Public License for more details.
13 ! You should have received a copy of the GNU General Public License
14 ! along with this program. If not, see <http://www.gnu.org/licenses/>.
19 integer, allocatable :: ivla1 (:)
20 integer, allocatable :: ivla2 (:, :)
23 logical, target :: logv
24 complex, target :: comv
25 character, target :: charv
26 character (len=3), target :: chara
27 integer, target :: intv
28 integer, target, dimension (10,2) :: inta
30 type(two), target :: twov
32 logical, pointer :: logp
33 complex, pointer :: comp
34 character, pointer :: charp
35 character (len=3), pointer :: charap
36 integer, pointer :: intp
37 integer, pointer, dimension (:,:) :: intap
38 real, pointer :: realp
39 type(two), pointer :: twop
50 logp => logv ! Before pointer assignment
59 logv = associated(logp) ! Before value assignment
68 allocate (twov%ivla1(3))
69 allocate (twov%ivla2(2,2))
78 intv = intv + 1 ! After value assignment