[patch,gfortran] PR 23843: IO on derived types with PRIVATE components

[Erik Edelmann]

tobias.schlueter@physik.uni-muenchen.de wrote:
> While the patch certainly does the right thing, there's other stuff that we
> get wrong before and after:
> schluter@pcl247d:~/src/tests> cat derio.f90
> module gfortran2
>     type tp1
>         private
>         integer :: i
>     end type
>     type tp
>         type (tp1) :: t
>     end type tp
> end module
> use gfortran2
> type (tp) :: x
> print *, x
> end
> schluter@pcl247d:~/src/tests> ~/src/gcc/build/gcc/f951 derio.f90
>  MAIN__
> Execution times (seconds)
>  parser                :   0.00 ( 0%) usr   0.00 ( 0%) sys   0.01 (50%) wall
>     61 kB (11%) ggc
>  TOTAL                 :   0.01             0.00             0.02
>    551 kB
> Extra diagnostic checks enabled; compiler may run slowly.
> Configure with --disable-checking to disable checks.
> schluter@pcl247d:~/src/tests>
> 
> This is because we don't look through the elements of the type to determine if
> it ultimately contains PRIVATE components, but only look at the first level.
> Your patch is ok to fix the PR, but I'd prefer if this issue were fixed at the
> same time.

OK. I'll take a look at it tomorrow (or whenever I get time).
Here in the eastern parts of Europe, it's soon bedtime (for small
boys like me at least :-).


        Erik