Sign in
llvm
/
llvm-archive
/
a95f55d472d28a35cc4af5df7749473ca38ee187
/
.
/
llvm-gcc-4.0
/
libgfortran
/
m4
/
mtype.m4
blob: 84bf39f3561c9ce421be25e3b316f51421ebc9a7 [
file
] [
log
] [
blame
]
dnl
Get
type kind
from
filename
.
define
(
kind
,
regexp
(
file
,
`_.\([0-9]+\).c$', `
\1
'))dnl
define(complex_type, `GFC_COMPLEX_'
kind
)
dnl
define
(
real_type
,
`GFC_REAL_'kind)dnl
define(q,ifelse(kind,4,f,ifelse(kind,8,`',`_'
kind
)))
dnl