gfortran just asked me to report this. See at the end of the messages reported. I attached getopt_long.F03.

[lluvia@parabola parse]$ LANG=en gfortran getopt_long.F03
getopt_long.F03:277.36:

type(getopt_type), pointer :: self
                                    1
Error: Symbol 'self' at (1) already has basic type of REAL
getopt_long.F03:278.29:

integer, intent(in) :: argn
                             1
Error: Symbol 'argn' at (1) already has basic type of REAL
getopt_long.F03:279.2:

argv = self%argv(argn)%string(1)(1:len(argv))
  1
Error: Unclassifiable statement at (1)
getopt_long.F03:274.30:

character(len=getopt_argv_len(self,argn)) &
1
Error: Type mismatch in argument 'self' at (1); passed REAL to TYPE
f951: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <https://labs.parabola.nu/> for instructions.