1! Copyright 2019-2023 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 test 17 logical :: l 18 logical (kind=1) :: l1 19 logical (kind=2) :: l2 20 logical (kind=4) :: l4 21 logical (kind=8) :: l8 22 23 type :: a_struct 24 logical :: a1 25 logical :: a2 26 end type a_struct 27 28 type (a_struct) :: s1 29 30 s1%a1 = .TRUE. 31 s1%a2 = .FALSE. 32 33 l1 = .TRUE. 34 l2 = .TRUE. 35 l4 = .TRUE. 36 l8 = .TRUE. 37 38 l = .FALSE. ! stop-here 39end 40