Another -C check bug

Question

Here is an interesting run-time check bug. I have an internal subroutine where an array index is changed in another internal subroutine by host association. The run-time check misses the fact that the index has been updated. Here is an example. It seems to relate to the use of a derived-type as well.
program test
implicit none
type my_type
integer, allocatable :: type(:)
integer :: size=0
end type my_type
type(my_type) :: obj
allocate(obj%type(10))
call sub1()
contains
subroutine sub1()
call incr()
write(*,*)'obj%size=',obj%size
obj%type(obj%size)=1
end subroutine sub1
subroutine incr()
obj%size=obj%size+1
end subroutine incr
end program test
Here is my result:
obj%size= 1
****** FORTRAN RUN-TIME SYSTEM ******
Subscript out of range. Location: line 14 column 12 of 'test2.f90'
Subscript number 1 has value 0 in array 'TYPE'
Abort

Answer 1

OK, I figured out the problem. I am getting the __SUNPRO defines, but used them in a way that fpp did not substitute them. The problem I have not is that -xpp=cpp does not work because the flag -Y<path> is given, which is not a standard cpp flag, and I just get an error message.
I am guessing that Sun cpp accepts a -Y flag, and sun Fortran assumes that it is standard. If so, maybe a good solution would be just to distribute Sun's cpp along with fpp. Another problem is that cpp is called with a specific path, so there is apparently no way to override it. So, it looks to me like this is a bug. But, it seems unlikely that nobody would have noticed it, unless everybody sticks with fpp, or if the -Y flag is new in this release.