File: class_allocate_02.f90

package info (click to toggle)
lfortran 0.60.0-2
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 58,416 kB
  • sloc: cpp: 173,406; f90: 80,491; python: 17,586; ansic: 9,610; yacc: 2,356; sh: 1,401; fortran: 895; makefile: 38; javascript: 15
file content (22 lines) | stat: -rw-r--r-- 529 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
program class_allocate_02
    implicit none

    type dummy_type
        integer(1), allocatable :: value(:)
    end type dummy_type

    class(*), allocatable :: dummy
    type(dummy_type) :: dummy_val

    allocate(dummy_val % value(1))
    allocate(dummy, source=dummy_val)

    print * , allocated(dummy)
    if (allocated(dummy) .neqv. .true.) error stop 
    
    !select type(d => dummy)
    !type is (dummy_type)
    !    print *, size(d % value)
    !    if (size(d % value) /= 1) error stop
    !end select
end program