- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Why Inspector does not indicate an error when not deallocate a matrix in a subroutine?
PROGRAM main_tst IMPLICIT NONE INTEGER, PARAMETER :: n1 = 5000 INTEGER, PARAMETER :: n2 = 1000 REAL , ALLOCATABLE :: mat(:,:) ALLOCATE(mat(n1, n2)) mat = 5. CALL sbrt_tst(n1, n2, mat) WRITE(*,*) mat(1:5,1) DEALLOCATE(mat) END PROGRAM main_tst SUBROUTINE sbrt_tst(n1, n2, mat__in) INTEGER, INTENT(IN ) :: n1 INTEGER, INTENT(IN ) :: n2 REAL , INTENT(INOUT) :: mat__in(n1, n2) REAL, ALLOCATABLE :: mat_aux(:,:) ALLOCATE(mat_aux(n1, n2)) mat_aux = n1*n2 mat__in = mat__in + mat_aux END SUBROUTINE sbrt_tst
I compiled and ran this way:
$ ifort -o ./main_tst ./main_tst.f90 -shared-intel -shared-libgcc -O0 -g $ inspxe-cl -collect mi3 -r r000mi3 ./main_tst
The output was:
5000005. 5000005. 5000005. 5000005. 5000005. 0 new problem(s) found
Link Copied
3 Replies
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Seems like an issue. I'm going to file a bug report
Thank you for reporting..
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Do you have any news about this issue?
Btw, my company has a paid license. Is there any other way to get more information about this bug report via the Online Service Center?
Thank you!
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Yes. If you can file a support request for the Inspector product. Here is a link to an article that will assist you.
https://software.intel.com/en-us/articles/how-to-create-a-support-request-at-online-service-center
Let them know you and about your forum post and also let them know that I had filed a bug report.
Regards,
Kevin
![](/skins/images/7B0AB6865064EAE32B30EC9A4E94B48A/responsive_peak/images/icon_anonymous_message.png)
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page