intrinsic_present.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 41 行

! Program to test the PRESENT intrinsic
program intrinsic_present
   implicit none
   integer a
   integer, pointer :: b
   integer, dimension(10) :: c
   integer, pointer, dimension(:) :: d
   
   if (testvar()) call abort ()
   if (.not. testvar(a)) call abort ()
   if (testptr()) call abort ()
   if (.not. testptr(b)) call abort ()
   if (testarray()) call abort ()
   if (.not. testarray(c)) call abort ()
   if (testparray()) call abort ()
   if (.not. testparray(d)) call abort ()
   
contains
logical function testvar (p)
   integer, optional :: p
   testvar = present(p)
end function

logical function testptr (p)
   integer, pointer, optional :: p
   testptr = present(p)
end function

logical function testarray (p)
   integer, dimension (10), optional :: p
   testarray = present(p)
end function

logical function testparray (p)
   integer, pointer, dimension(:), optional :: p
   testparray = present(p)
end function

end program