3 ! (options to disable warnings about statement functions etc.)
7 ! Contributed by Vittorio Zecca
11 implicit real*8 (a
-h
,o
-z
)
12 character*32 ddname
,stmtfnt1
13 stmtfnt1(x
)= 'h810 e=0.01 '
15 if (ddname
/= "h810 e=0.01") call abort()
20 character(2) :: ddname
,stmtfnt2
24 if(ddname
/= 'x') call abort()
28 implicit real*8 (a
-h
,o
-z
)
29 character*32 ddname
,dname
31 dname(c
) = 'h810 e=0.01 '
33 if (ddname
/= "h810 e=0.01") call abort()
37 implicit real*8 (a
-h
,o
-z
)
38 character*32 ddname
,dname
40 dname(c
) = 'h810 e=0.01 '
43 if (ddname
/= "h810 e=0.01") call abort()
44 if (c
/= "aa") call abort()