Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/constructor_4.f90 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-std=f95" } ! ! PR fortran/39427 ! ! Check constructor functionality. ! ! module m type t ! { dg-error "the same name as derived type" } integer :: x end type t interface t module procedure f end interface t contains function f() ! { dg-error "the same name as derived type" } type(t) :: f end function end module module m2 interface t2 module procedure f2 end interface t2 type t2 ! { dg-error "the same name as derived type" } integer :: x2 end type t2 contains function f2() ! { dg-error "the same name as derived type" } type(t2) :: f2 end function end module