52 lines
1.1 KiB
Fortran
52 lines
1.1 KiB
Fortran
! { dg-do compile }
|
|
! { dg-options "" }
|
|
! (options to disable warnings about statement functions etc.)
|
|
!
|
|
! PR fortran/44352
|
|
!
|
|
! Contributed by Vittorio Zecca
|
|
!
|
|
|
|
SUBROUTINE TEST1()
|
|
implicit real*8 (a-h,o-z)
|
|
character*32 ddname,stmtfnt1
|
|
stmtfnt1(x)= 'h810 e=0.01 '
|
|
ddname=stmtfnt1(0.d0)
|
|
if (ddname /= "h810 e=0.01") STOP 1
|
|
END
|
|
|
|
SUBROUTINE TEST2()
|
|
implicit none
|
|
character(2) :: ddname,stmtfnt2
|
|
real :: x
|
|
stmtfnt2(x)= 'x'
|
|
ddname=stmtfnt2(0.0)
|
|
if(ddname /= 'x') STOP 2
|
|
END
|
|
|
|
SUBROUTINE TEST3()
|
|
implicit real*8 (a-h,o-z)
|
|
character*32 ddname,dname
|
|
character*2 :: c
|
|
dname(c) = 'h810 e=0.01 '
|
|
ddname=dname("w ")
|
|
if (ddname /= "h810 e=0.01") STOP 3
|
|
END
|
|
|
|
SUBROUTINE TEST4()
|
|
implicit real*8 (a-h,o-z)
|
|
character*32 ddname,dname
|
|
character*2 :: c
|
|
dname(c) = 'h810 e=0.01 '
|
|
c = 'aa'
|
|
ddname=dname("w ")
|
|
if (ddname /= "h810 e=0.01") STOP 4
|
|
if (c /= "aa") STOP 5
|
|
END
|
|
|
|
call test1()
|
|
call test2()
|
|
call test3()
|
|
call test4()
|
|
end
|