gcc/testsuite/gfortran.dg/common_1.f


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { dg-do compile }
      module mymod
      type :: mytyp
      integer :: i
      end type mytyp
      contains
      subroutine mysub
      implicit none
      type(mytyp) :: a
      integer :: commoni,commonj
      commoni = a%i
      commonj = a%j      ! { dg-error "is not a member of" }
      end subroutine mysub
      end module mymod