[Bug fortran/83246] New: internal compiler error or loader problem might be related to a PARAMETER statement being in a BLOCK

[urbanjost at comcast dot net]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83246

            Bug ID: 83246
           Summary: internal compiler error or loader problem might be
                    related to a PARAMETER statement being in a BLOCK
           Product: gcc
           Version: 6.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: urbanjost at comcast dot net
  Target Milestone: ---

Created attachment 42769
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=42769&action=edit
create scratch file in BLOCK

Using GNU Fortran 6.4.0 on Cygwin I get various errors and/or this
  program runs making small changes to the test code. I only seem to
  have problems if I declare a PARAMETER in a BLOCK, but I thought 
  that was allowed? (Really have not used BLOCK much yet).

  If I have block MAKEDATA first I get loader error

  >/tmp/CCALL_CYGWIN64_GFORTRAN_8008/ccQ0aELt.o: In function `dusty_corner':
  >/tmp/CCALL_CYGWIN64_GFORTRAN_8008/yyy.8008.f90:28: undefined reference to
`scratch.3494'
  >/tmp/CCALL_CYGWIN64_GFORTRAN_8008/yyy.8008.f90:28:(.text+0x79a): relocation
truncated to fit: R_X86_64_PC32 against undefined symbol `scratch.3494'

  If I switch the order of MAKEDATA and MAKEDATAP blocks I get
  > MAKEDATA: block
  > 
  >internal compiler error: in gfc_process_block_locals, at
fortran/trans-decl.c:6474
  >
  >/tmp/CCALL_CYGWIN64_GFORTRAN_131892/yyy.131892.f90:27:0: internal compiler
error: Segmentation fault
  >mmap: No such device
  >Please submit a full bug report,
  >with preprocessed source if appropriate.

  If I comment out the first write statement ("BLOCK TESTS") the program works
    or
  If I comment out block MAKEDATAP the program works