View previous topic :: View next topic |
Author |
Message |
mecej4
Joined: 31 Oct 2006 Posts: 1886
|
Posted: Wed Jan 13, 2021 3:27 pm Post subject: Internal Compiler Error (V 8.70) |
|
|
When one tries to compile the program below with FTN95 Version 8.70, an internal error occurs.
Code: | 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 |
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7924 Location: Salford, UK
|
Posted: Thu Jan 14, 2021 10:17 am Post subject: |
|
|
mecej4
Thank you for the bug report.
The failure occurs for this initialisation statement not for the runtime assignment...
Code: | alfbet = [(char(i+64),i=1,26)]
|
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7924 Location: Salford, UK
|
Posted: Mon Feb 15, 2021 12:59 pm Post subject: |
|
|
This failure has now been fixed for the next release of FTN95. |
|
Back to top |
|
|
|