Internal Compiler Error (V 8.70)

When one tries to compile the program below with FTN95 Version 8.70, an internal error occurs.

program charset
   implicit none
   integer i
   character :: alfbet(26) = [(char(i+64),i=1,26)]
   do i=2,26,2
      print 10,i,alfbet(i)
   end do
10 format(1x,i2,1x,A1)
end program

mecej4

Thank you for the bug report.

The failure occurs for this initialisation statement not for the runtime assignment...

   alfbet = [(char(i+64),i=1,26)]

This failure has now been fixed for the next release of FTN95.