I have this Fortran code (3 lines in the middle of a very large source file):
write ( *, '(a,4a20)' ) ' Col: ', ( ctemp(j2), j2 = 1, inc )
write ( *, '(a)' ) ' Row'
write ( *, '(a)' ) ' ---'
The first line number is 1834. The code compiles with a bunch of warnings of this nature: real*4 parameter passed to a subroutine that needs real*8 or vice versa. When it runs, however it gives me this runtime error:
At line 1834 of file fftpacks_prb.f08 (unit = 6, file = 'stdout')
Fortran runtime error: Insufficient data descriptors in format after reversion
*** glibc detected *** ./a.out: free(): invalid pointer: 0x09fe5908 ***
It also gives me a memory dump I don't understand.
Any help will be appreciated. Thanks, - A.