test
|
00001 program Test_1 00002 00003 use precision 00004 use maths 00005 00006 implicit none 00007 00008 integer :: type_test ! Just the declaration -> No error! 00009 integer :: typetest ! Just the declaration -> No error! 00010 00011 integer :: a, b, c, d 00012 type_test = 1 ! With assignment -> Error! 00013 typetest = 1 ! With assignment -> Error! 00014 00015 a = 1 00016 b = 2 00017 00018 call func(a,b,c,d) 00019 00020 end program Test_1