1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
program types_09
use iso_c_binding, only: c_char
implicit none
integer, parameter :: ucs4=selected_char_kind("ISO_10646")
character(1,ucs4), parameter :: nen=char(int(Z'5e74'),ucs4)
contains
subroutine f(s, s2)
character(kind=c_char, len=:), allocatable, intent(in) :: s
character(len=:), allocatable, intent(in) :: s2
character(kind=1, len=*), parameter :: lowercase = &
& 'abcdefghijklmnopqrstuvwxyz'
end subroutine
subroutine s()
use,intrinsic :: iso_fortran_env, only : int32
integer(int32) :: x = 1
end subroutine s
end program
|
