gcc/testsuite/gfortran.dg/class_array_5.f03


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

! { dg-do compile }
! PR44568 - class array impelementation.
!
! Contributed by Hans-Werner Boschmann
!
module ice6

  type::a_type
   contains
     procedure::do_something
  end type a_type

  contains

  subroutine do_something(this)
    class(a_type),intent(in)::this
  end subroutine do_something

  subroutine do_something_else()
    class(a_type),dimension(:),allocatable::values
    call values(1)%do_something()
  end subroutine do_something_else

end module ice6
! { dg-final { cleanup-modules "ice6" } }