https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68216
Bug ID: 68216
Summary: [F2003] IO problem with allocatable, deferred
character length arrays
Product: gcc
Version: 6.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: pault at gcc dot gnu.org
Target Milestone: ---
The following segfaults in the READ statement:
PROGRAM hello
IMPLICIT NONE
CHARACTER(LEN=:),DIMENSION(:),ALLOCATABLE :: array_lineas
INTEGER :: largo , cant_lineas , i
WRITE(*,*) ' Escriba un numero para el largo de cada linea'
READ(*,*) largo
WRITE(*,*) ' Escriba la cantidad de lineas'
READ(*,*) cant_lineas
ALLOCATE(CHARACTER(LEN=largo) :: array_lineas(cant_lineas))
WRITE(*,*) 'Escriba el array', len(array_lineas), size(array_lineas)
READ(*,*) (array_lineas(i),i=1,cant_lineas)
WRITE(*,*) 'Array guardado: '
DO i=1,cant_lineas
WRITE(*,*) array_lineas(i)
ENDDO
READ(*,*)
END PROGRAM
Reported on clf
https://groups.google.com/forum/#!topic/comp.lang.fortran/eWQTKfqKLZc
Paul
