--- /dev/null Thu Jan 01 00:00:00 1970 +0000+++ b/gcc/testsuite/gfortran.dg/pr67496.f90 Fri Oct 27 22:46:09 2017 +0900@@ -0,0 +1,12 @@+! PR fortran/67496+! { dg-do compile }++ type :: a+ end type a+ type :: b+ type (a) :: j(1)+ end type b+ type(a) :: x+ type(b) :: y+ y = b((/x/))+end