- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
The following program does not compile with ifort 13.0.1 20121010 due to internal compiler error:
module nest_cons
type :: a
end type a
type :: b
end type b
interface a
module procedure :: a_new
end interface a
interface b
module procedure :: b_new
end interface b
contains
function a_new()
type(a), pointer :: a_new
allocate(a_new)
print *, "a_new()"
end function a_new
function b_new(a_old)
class(a), target :: a_old
type(b), pointer :: b_new
allocate(b_new)
print *, "b_new()"
end function b_new
end module nest_cons
program nest_cons_prog
use nest_cons
class(b), pointer :: bb
bb => b(a())
end program nest_cons_prog
Best regards,
Paweł Biernat.
Link Copied
2 Replies
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Thanks for the interesting example. I can reproduce the problem and have escalated this as issue DPD200238281. I will update this thread with any news.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
It turns out that this problem (in a different guise) was previously reported and has already been fixed. The issue ID is DPD200236395 and the fix should appear in update 2.
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