Hello,
I reported the following to Andy:
The following program doesn't compile. (Win XP)
D:\Fortran\Test\G95>g95 -v
Using built-in specs.
Configured with: ./configure --enable-languages=c --disable-nls
Thread model: single
gcc version 3.5.0 20040824 (experimental) (g95!) Nov 12 2004
program T_reshape
implicit NONE
integer :: k
integer, parameter :: L_1 = selected_int_kind(2)
logical(L_1) :: table(1 : 8192)
! Below line puts G95 compiler in endless loop; 100% CPU
table=reshape((/.false._L_1/), shape(table), (/ .true._L_1 /))
! table = .true. ; table(1) = .false.
inquire(IOlength = k) table
print *, k
end program T_reshape
\---
Best regards,
Jan van Oosterwijk | "They that can give up essential liberty
Netherlands | to obtain a little temporary safety deserve
| neither liberty nor safety."
| -- Benjamin Franklin (1759)
write(*,*)transfer((/778985834,1869504886,1702130543,1785296754 &
&,1635205227,1868849518,1819160175 /),(/'x'/)) ; end
mailto:Jan <dot> vanOosterwijk <at> wanadoo <dot> NL
http://huizen <dot> dto <dot> tudelft <dot> nl/vanOosterwijk/
|