1! Copyright 2020 Free Software Foundation, Inc. 2! 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. 7! 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. 12! 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/>. 15 16program allocate_array 17 18 type l_buffer 19 real, dimension(:), pointer :: alpha 20 end type l_buffer 21 type(l_buffer), pointer :: buffer 22 23 allocate (buffer) 24 allocate (buffer%alpha (5)) 25 26 buffer%alpha (1) = 1.5 27 buffer%alpha (2) = 2.5 28 buffer%alpha (3) = 3.5 29 buffer%alpha (4) = 4.5 30 buffer%alpha (5) = 5.5 31 32 print *, buffer%alpha ! Break Here. 33 34end program allocate_array 35