File: pointer_06.f90

package info (click to toggle)
lfortran 0.61.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 61,892 kB
  • sloc: cpp: 181,767; f90: 92,175; python: 17,616; ansic: 10,170; yacc: 2,377; sh: 1,444; fortran: 892; makefile: 38; javascript: 15
file content (19 lines) | stat: -rw-r--r-- 403 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
program a
  implicit none
  ! Declare an unlimited polymorphic pointer
  class(*), pointer :: ptr
  character(5), target :: t
  t = 'abcde'
  ptr => t
  select type (p => ptr)
    type is (character(*))
      print *, p
      if (p /= 'abcde') error stop
      p = 'vwxyz'
    class default
      print *, "Unknown"
      error stop
  end select
  print *, t
  if (t /= 'vwxyz') error stop
end program a