14 Oct 2016 11:58
#18118
For this test program (abstracted from a much larger program):
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:
[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).