summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/structure_constructor_9.f90
blob: 75120856e139860224ae52b8d7691b6335d70733 (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
26
27
! { dg-do compile }
! { dg-options "-std=f95" }
! Check for notify-std-messages when F2003 structure constructors are compiled
! with -std=f95.

PROGRAM test
  IMPLICIT NONE

  ! Basic type with default initializers
  TYPE :: basics_t
    INTEGER :: i = 42
    REAL :: r = 1.5
  END TYPE basics_t

  TYPE(basics_t) :: basics

  ! This is ok in F95
  basics = basics_t (1, 2.)

  ! No argument naming in F95
  basics = basics_t (1, r = 4.2) ! { dg-error "Fortran 2003" }

  ! No optional arguments in F95
  basics = basics_t () ! { dg-error "Fortran 2003" }
  basics = basics_t (5) ! { dg-error "Fortran 2003" }

END PROGRAM test