View previous topic :: View next topic |
Author |
Message |
mecej4
Joined: 31 Oct 2006 Posts: 1886
|
Posted: Sat Oct 15, 2016 12:58 am Post subject: Integers of same kind flagged as different kinds |
|
|
For this test program (abstracted from a much larger program):
Code: | subroutine tst(pcg)
type pcgtype
sequence
integer, pointer :: iptr
real, pointer :: fptr
end type pcgtype
type(pcgtype), intent(in) :: pcg
select case(pcg%iptr)
case(0)
write(*,*)'case 0'
case(3)
write(*,*)pcg%fptr
end select
return
end subroutine
|
FTN95 8.05 says:
Quote: | [FTN95/Win32 Ver. 8.05.0 Copyright (c) Silverfrost Ltd 1993-2016]
0011) case(0)
*** CASE value type INTEGER(KIND=3) on line 11 is different from SELECT CASE expression INTEGER(KIND=3) on
line 10
0012) write(*,*)'case 0'
*** CASE value type INTEGER(KIND=3) on line 12 is different from SELECT CASE expression INTEGER(KIND=3) on
line 10
2 ERRORS [<TST> FTN95/Win32 v8.05.0]
0016) return
*** Compilation abandoned |
The second error message also displays an incorrect line number (12 instead of 13). |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Sat Oct 15, 2016 8:56 am Post subject: |
|
|
Thank you for the feedback. I have logged this as needing fixing. |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Wed Jan 25, 2017 3:10 pm Post subject: |
|
|
This bug has been fixed for the next release. |
|
Back to top |
|
|
|