1! Copyright 2010-2016 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! 16! This file was written by Jan Kratochvil <jan.kratochvil@redhat.com>. 17 18program test 19 logical :: l 20 logical (kind=1) :: l1 21 logical (kind=2) :: l2 22 logical (kind=4) :: l4 23 logical (kind=8) :: l8 24 l = .TRUE. 25 l1 = .TRUE. 26 l2 = .TRUE. 27 l4 = .TRUE. 28 l8 = .TRUE. 29 l = .FALSE. ! stop-here 30end 31