View previous topic :: View next topic |
Author |
Message |
simon
Joined: 05 Jul 2006 Posts: 268
|
Posted: Fri Mar 10, 2017 5:12 pm Post subject: inconsistent kind? |
|
|
The following program complains about inconsistent kind types when compiled in 64-bit mode, but not in 32-bit mode. The error message disappears if the pointer declaration is deleted or if it is not nullified, even though the pointer is not referenced anywhere.
Code: | Module m
Type d
Integer :: i
End Type d
Integer, Pointer :: j => Null()
!
Contains
!
Subroutine s1 (ad)
Type(d) :: ad
!
Call s2 (ad%i)
Return
End Subroutine s1
!
Subroutine s2 (i)
Integer :: i
!
Return
End Subroutine s2
End Module m
| [/code] |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Fri Mar 10, 2017 5:34 pm Post subject: |
|
|
I have made a note that this needs fixing. |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Wed Mar 15, 2017 2:18 pm Post subject: |
|
|
This regression has now been fixed for the next release of FTN95. |
|
Back to top |
|
|
|