test
Tests.f90
Aller à la documentation de ce fichier.
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