Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/structure_constructor_6.f03 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 ! Structure constructor with default initialization, test that an error is
3 ! emitted for components without default initializer missing value.
4
5 PROGRAM test
6 IMPLICIT NONE
7
8 ! Structure of basic data types
9 TYPE :: basics_t
10 INTEGER :: i = 42
11 REAL :: r
12 COMPLEX :: c = (0., 1.)
13 END TYPE basics_t
14
15 TYPE(basics_t) :: basics
16
17 basics = basics_t (i = 42) ! { dg-error "No initializer for component 'r'" }
18 basics = basics_t (42) ! { dg-error "No initializer for component 'r'" }
19
20 END PROGRAM test