! { dg-do run }
|
! { dg-do run }
|
!
|
!
|
! Tests fix for PR28425 in which anything other than a constructor would
|
! Tests fix for PR28425 in which anything other than a constructor would
|
! not work for derived type components in a structure constructor.
|
! not work for derived type components in a structure constructor.
|
!
|
!
|
! Original version sent by Vivek Rao on 18 Jan 06
|
! Original version sent by Vivek Rao on 18 Jan 06
|
! Modified by Steve Kargl to remove IO
|
! Modified by Steve Kargl to remove IO
|
!
|
!
|
module foo_mod
|
module foo_mod
|
|
|
implicit none
|
implicit none
|
|
|
type :: date_m
|
type :: date_m
|
integer :: month
|
integer :: month
|
end type date_m
|
end type date_m
|
|
|
type :: file_info
|
type :: file_info
|
type(date_m) :: date
|
type(date_m) :: date
|
end type file_info
|
end type file_info
|
|
|
end module foo_mod
|
end module foo_mod
|
|
|
program prog
|
program prog
|
|
|
use foo_mod
|
use foo_mod
|
|
|
implicit none
|
implicit none
|
type(date_m) :: dat
|
type(date_m) :: dat
|
type(file_info) :: xx
|
type(file_info) :: xx
|
|
|
type(date_m), parameter :: christmas = date_m (12)
|
type(date_m), parameter :: christmas = date_m (12)
|
|
|
dat = date_m(1)
|
dat = date_m(1)
|
|
|
xx = file_info(date_m(-1)) ! This always worked - a constructor
|
xx = file_info(date_m(-1)) ! This always worked - a constructor
|
if (xx%date%month /= -1) call abort
|
if (xx%date%month /= -1) call abort
|
|
|
xx = file_info(dat) ! This was the original PR - a variable
|
xx = file_info(dat) ! This was the original PR - a variable
|
if (xx%date%month /= 1) call abort
|
if (xx%date%month /= 1) call abort
|
|
|
xx = file_info(foo(2)) ! ...functions were also broken
|
xx = file_info(foo(2)) ! ...functions were also broken
|
if (xx%date%month /= 2) call abort
|
if (xx%date%month /= 2) call abort
|
|
|
xx = file_info(christmas) ! ...and parameters
|
xx = file_info(christmas) ! ...and parameters
|
if (xx%date%month /= 12) call abort
|
if (xx%date%month /= 12) call abort
|
|
|
|
|
contains
|
contains
|
|
|
function foo (i) result (ans)
|
function foo (i) result (ans)
|
integer :: i
|
integer :: i
|
type(date_m) :: ans
|
type(date_m) :: ans
|
ans = date_m(i)
|
ans = date_m(i)
|
end function foo
|
end function foo
|
|
|
end program prog
|
end program prog
|
! { dg-final { cleanup-modules "foo_mod" } }
|
! { dg-final { cleanup-modules "foo_mod" } }
|
|
|
