allocate in internal subprogram

allocate in internal subprogram

Here is the problem:An allocatable array declared in an external subprogram then allocated in an internal subprogram is no longer allocated after the internal subprogram returns and the save attribute is used. Here is the test code: