blob: 508d5670689f03243310a51a73f23e9be5fabe54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
! { dg-do compile }
! Tests the fix for PR30660 in which gfortran insisted that g_dest
! should have the SAVE attribute because the hidden default
! initializer for the allocatable component was being detected.
!
! Contributed by Toon Moene <toon@moene.indiv.nluug.nl>
!
MODULE types_m
TYPE coord_t
INTEGER ncord
REAL,ALLOCATABLE,DIMENSION(:) :: x, y
END TYPE
TYPE grib_t
REAL,DIMENSION(:),ALLOCATABLE :: vdata
TYPE(coord_t) coords
END TYPE
END MODULE
MODULE globals_m
USE types_m
TYPE(grib_t) g_dest ! output field
END MODULE
! { dg-final { cleanup-modules "types_m globals_m" } }
|
