gcc/testsuite/gfortran.dg/blockdata_11.f90

   1 ! { dg-do run }
   2 ! PR 84394 - this used to complain about private procedures in
   3 ! BLOCK data.
   4 module mod1
   5    implicit none
   6    type :: type1
   7       integer :: i1
   8    end type type1
   9 end module
  10
  11 module mod2
  12    implicit none
  13    contains
  14       subroutine sub1
  15          integer vals
  16          common /block1/ vals(5)
  17          if (any(vals /= [1, 2, 3, 4, 5])) stop 1
  18       end subroutine
  19 end module
  20
  21 block data blkdat
  22   use mod1
  23   integer vals
  24   common /block1/ vals(5)
  25   data vals/1, 2, 3, 4, 5/
  26 end block data blkdat
  27
  28 program main
  29   use mod2, only: sub1
  30   implicit none
  31   call sub1
  32 end program
  33