All pastes #2091425 Raw Edit

Miscellany

public text v1 · immutable
#2091425 ·published 2011-10-19 13:27 UTC
rendered paste body
      integer, pointer :: ip(:)

      call alloc_ip(ip)
      
      end
      
      subroutine alloc_ip(ip)
      integer, pointer :: ip(:)
      
      allocate(ip(10))
      
      end