1! Copyright 2019-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 2 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 16module mod1 17 type :: m1t1 18 integer :: b 19 end type m1t1 20 21 real :: mod1_var_1 = 1.0 22 integer, parameter :: mod1_var_2 = 456 23 24contains 25 subroutine sub_m1_a(arg) 26 integer :: arg 27 print*, "sub_m1_a" 28 print*, "arg = ", arg 29 end subroutine sub_m1_a 30 31 integer function sub_m1_b() 32 print*, "sub_m1_b" 33 sub_m1_b = 3 34 end function sub_m1_b 35end module mod1 36 37program info_types_test 38 use mod1 39 use mod2 40 41 type :: s1 42 integer :: a 43 end type s1 44 45 logical :: l 46 type (s1) :: var_a 47 type (m1t1) :: var_b 48 49 var_a%a = 1 + mod2_var_1 50 var_b%b = 2 51 l = .FALSE. 52end program info_types_test 53