diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2007-04-22 06:16:11 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2007-04-22 06:16:11 +0000 |
| commit | 19db894c481e5c3fca89862ef244803c63a54ed7 (patch) | |
| tree | d04ed7d0707a74fb072fb57f88948a8416c00375 /sem_assocs.adb | |
| parent | 301584eaf540c982676f520d662b473e59890584 (diff) | |
| download | ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.tar.gz ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.tar.bz2 ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.zip | |
synchronized to ghdl 0.26
Diffstat (limited to 'sem_assocs.adb')
| -rw-r--r-- | sem_assocs.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/sem_assocs.adb b/sem_assocs.adb index 7b96eb603..859226ee3 100644 --- a/sem_assocs.adb +++ b/sem_assocs.adb @@ -1249,6 +1249,14 @@ package body Sem_Assocs is Match := False; return; end if; + -- LRM 4.3.3.2 Associations lists + -- It is an error if an actual of open is associated with a + -- formal that is associated individually. + if Assoc_Kind = Individual then + Error_Msg_Sem ("cannot associate individually with open", + Assoc); + end if; + Xrefs.Xref_Name (Formal); Set_Formal (Assoc, Expr); end if; |